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- Enter debugger to start program 

- Entry from trap 

- Enter debugger by typing ctrl-D 

- Enter debugger from breakpoint 

- Exit from debugger to user 

- Get neiu command 
nd processing routines — 
Examine ujord 
Examine byte 

Decode value as an instruction 
Open indirect 

Open cell indirect, relative to PC 
Convert address to relocation offset 
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- Initialize the debugger 

- Reset breakpoint instructions 

- Set breakpoints 

- Determine type of breakpoint 

- Display breakpoint information 

- Set flag if any breakpoints are active 

- Accrue a general value 

- Accrue a number 

- Get next character from terminal 

- Push a character 

- Print octal value 

- Print octal word value 

- Print octal byte value 

- Print a RAD50 value 

- Print an error message 

- Print text string 

- Set address of open cell 

- Store value into open cell 

- Get value from current cell 

- Display current address 

- Display address in user's program 

- Display address in user's program 

- Determine if address is in relocation region 

- Print a text string 

- Place terminal in debug mode 

- Turn off terminal debug mode 
~ Determine if address is valid 

- Decode instruction into symbolic form 

- Display instruction operands 

- Display general operand value 
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ODCREG — Display register name 

ODCACC — Print a floating point accumulator name 
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INSBAS — Instruction decoding tables 
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000000 
000000 



014527 





. TITLE 


TSDBUG 




. ENABL 


LC 




. DSABL 


OBL 




. ENABL 


AMA 




. CSECT 


TSDBUG 


TSDBUO: 


. RAD50 


/DBG/ 



TSX-Plus debugging module 



System overlay id 



This module implements the TSX-Plus program debugging facility. 

Copyright <c) 1984. 
S&H Computer Systems^ Inc. 
Washville» Tennessee USA 
All rights reserved. 

Macro calls 

. MCALL . TTYIN, . TTYOUT 
Global definitions 

. GLOBL DBGENT, BRKENT, DBGBRK, DBGTRP 

Global references 

. GLOBL D. BYTM, D. BKAD. D. RLBS, D. SVCH, D. NMBF, D. LOC 

. GLOBL D. VAL1> D. VIFL, D. VAL2, D. V2FL, D. LOCM 

. GLOBL D. RO; D. Rl, D. R2, D. R3, D. R4, D. R5, D. R6, D. R7 

. GLOBL D. FLAG, D«SSTP, D*DBRK, D*IBRK, D*SBRK, D. BKNM 

. GLOBL D. BKSV, D*DMON, D. DADR, D. DOLD, D, DTRG 

. GLOBL D*DVAL, D«IPND> D*BKST, D. PS, UMODE, UPMODE 

. GLOBL D. SPSV. D. NMBE, D. START, D. END, D*FBRK 

. GLOBL PUTCHR, CORUSR. OVRHC. UPMODE, PSW, D. PCNT 

. GLOBL LSW9, *DBGBK, D*RUN, D. LVAL, D. MASK, D*CKBK 

. GLOBL D*INIT, *DEBUG, D. POOL, D. ILEN, D*TSTP 

. GLOBL D. PFMT, DP*DAA, DP*LAA, D. CBRK 

. GLOBL D*ISPC 

Macro definitions 



. MACRO 


OCALL ENTADD 


CALL 


OVRHC 


. WORD 


ENTADD 


. ENDM 


OCALL 


. MACRO 


ERR ERRMSG 


MOV 


ERRMSG, Rl 


JMP 


ERRPRT 


. ENDM 


ERR 


. MACRO 


TPRINT STRING 


. IF 


NB STRING 


MOV 


STRING, RO 






CALL 


DOPRT 


. ENDM 


TPRINT 


. MACRO 


PRINT STRING 
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60 




61 




62 




63 




64 




65 


000002 


66 


000004 


67 




68 




69 




70 




71 




72 




73 




74 




75 




76 




77 




78 




79 




SO 




81 




82 




83 




84 




85 




86 


000006 


87 


000036 


88 


000056 


89 


000074 


90 


000115 


91 


000151 


92 


000171 


93 


000215 


94 


000216 


95 




96 




97 




98 


000220 


99 




100 





001 
000 



000015 
000012 
000007 
000010 
00001 1 
000040 
000054 



000020 
000010 



11 

11 

11 

11 

11 

116 

015 

000 

015 



040 



111 
ill 



156 
156 
156 
156 
156 
165 
012 

200 



101 



166 
166 
166 
166 
166 
155 
124 



lOJ 



JSR R2, LSTTXT 

. ASCIZ "'STRING'" 
. EVEN 

. ENDM PRINT 

EMT argument blocks to control terminal debug mode 



ONEMT: .BYTE 1,111 
OFFEMT: .BYTE 0,111 

Ascii character values 



CR 

LF 

BELL 

BKSPAC 

TAB 

SPACE 

COMMA 



13 

12 
07 
10 
11 
40 
54 



Assembly parameters 



TRCTRP = 
COLDPN = 



20 
8. 



i Turn on debug mode 
i Turn off debug mode 



t s.,arr iage— T'tf turn 
Line-feed 
Bell 

Backspace 
Tab 
Space 
Comma 



i Trace trap flag in PSW 

; Column number where operand is to ao 



Error messages 



EM«IRC 

EM*IVC 

EM*IVL 

EM*IIV 

EM*IRB 

EM*NTL 

TM*GRT 

CRLF: 

CRCHAR: 



. NLIST BEX 

ASCIZ /Invalid RAD50 character/ 

.ASCIZ /Invalid command/ 

.ASCIZ /Invalid value/ 

.ASCIZ /Invalid register/ 

.ASCIZ /Invalid relocation register/ 

. ASCIZ /Number too long/ 

ASCIZ <CR><:LF>/TSX-P1us debugger/ 

. BYTE 

.BYTE CR, 200 i Print CR only 



RAD50 character table 

R50CHR: .ASCII / ABCDEFGHIJKLMNOPQRSTUVWXYZ*. *0 123456789/ 
. EVEN 
. LIST BEX 
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4 


000270 


057 


5 


000271 


134 


6 


000272 


100 


7 


000273 


137 


S 


000274 


041 


9 


000275 


133 


10 


000276 


135 


n 


000277 


102 


12 


000300 


107 


13 


000301 


111 


14 


000302 


115 


15 


000303 


120 


16 


000304 


122 


17 


000305 


123 


18 


000306 


130 


19 


000307 


015 


20 


000310 


012 


21 


000311 


136 


22 


000312 


010 


23 


000313 


Oil 


24 




000024 


25 






26 






27 






28 






29 


000314 


001652' 


30 


000316 


001730' 


31 


000320 


002136' 


32 


000322 


002232 ' 


33 


000324 


002252' 


34 


000326 


002036 ' 


35 


000330 


003730 ' 


36 


000332 


002556' 


37 


000334 


002660 ' 


38 


000336 


003000 ' 


39 


000340 


003462 ' 


40 


000342 


002714' 


41 


000344 


002354 ' 


42 


000346 


002744 ' 


43 


000350 


003224 ' 


44 


000352 


003542' 


45 


000354 


003574 ' 


46 


000356 


004072 ' 


47 


000360 


004060' 


48 


000362 


003034 ' 
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i Table of eo 


mmand charac 
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CMDTBL: . BYTE 


'/ 






, / 


. BYTE 


'\ 






\ 


. BYTE 


'e 






@ 


. BYTE 


/ 








. BYTE 


/ 1 






J 1 


. BYTE 


'C 






. I 


. BYTE 


'] 






3 


. BYTE 


'B 






B 


. BYTE 


'G 






G 


. BYTE 


'I 






T 
J. 


. BYTE 


'M 






M 


BYTE 


'P 






P 


. BYTE 


'R 






R 


. BYTE 


'S 






S 


. BYTE 


'X 






X 


. BYTE 


CR 






Carriage -ret urn 


. BYTE 


LF 






Line-feed 


. BYTE 


/ .A. 






Up arrow 


. BYTE 


BKSPAC 






Bac kspace 


. BYTE 


TAB 






Tab 


NUMCMD = 


. -CMDTBL 






. EVEN 








i Parallel ta 


ble of command 


processing routines 


CMDVEC: . WORD 


CMDSLH 






/ 


. WORD 


CMDBKS 






\ 


. WORD 


CMDAT 






e 


. WORD 


CMDUS 








. WORD 


CMDEXP 






1 


. WORD 


CMDDCD 






c 


. WORD 


CMDRSB 






3 


. WORD 


CMDB 






B 


. WORD 


CMDG 






G 


. WORD 


CMDI 






I 


. WORD 


CMDM 






M 


. WORD 


CMDP 






P 


. WORD 


CMDR 






R 


. WORD 


CMDS 






S 


. WORD 


CMDX 






X 


. WORD 


CMDCR 






Carriage-return 


. WORD 


CMDLF 






Line-feed 


. WORD 


CMDUP 






Up arrow 


. WORD 


CMDBSP 






Backspace 


. WORD 


CMDTAB 






Tab 
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1 

2 






3 






4 


000364 


060 


5 


000365 


061 


6 


000366 


062 


7 


000367 


063 


8 


000370 


064 


9 


000371 


065 


10 


000372 


066 


11 


000373 


067 


12 


000374 


123 


13 


000375 


115 


14 


000376 


106 


15 


000377 


102 


16 


000400 


122 


17 




000015 


le 






19 






20 






21 






22 


000402 


OOOOOOG 


23 


000404 


OOOOOOG 


24 


000406 


OOOOOOG 


25 


000410 


OOOOOOG 


26 


000412 


OOOOOOG 


27 


000414 


OOOOOOG 


28 


000416 


OOOOOOG 


29 


000420 


OOOOOOG 


30 


000422 


OOOOOOG 


31 


000424 


OOOOOOG 


32 


000426 


OOOOOOG 


33 


000430 


OOOOOOG 


34 


000432 


OOOOOOG 


35 


000434 





taoie of internal regisTer names 



INTCHR: 


. BYTE 


'0 




. BYTE 


'1 




. BYTE 


'2 




. BYTE 


'3 




. BYTE 


'4 




. BYTE 


'5 




. BYTE 


'6 




. BYTE 


'7 




, BYTE 


'S 




. BYTE 


'M 




. BYTE 


'F 




. BYTE 


'B 




. BYTE 


'R 


NUMINT 


. EVEN 


. -INTO 


i 

; Para 


llel ta 


ble of a 


INTADR: 


. WORD 


D. RO 




. WORD 


D. Rl 




. WORD 


D. R2 




. WORD 


D. R3 




. WORD 


D. R4 




. WORD 


D. R5 




. WORD 


D. R6 




. WORD 


D. R7 




. WORD 


D. PS 




. WORD 


D. MASK 




. WORD 


D. PFMT 




. WORD 


D. BKAD 




. WORD 


D. RLBS 


INTEND: 







«0 

*1 

$2 
*3 
$4 
*5 
*6 
*7 
$S 
*M 
*F 
$B 
*R 



(SP) 

(PC) 

(PS) 

(Mask tuord ) 

(Format register) 

(Breakpoint locations) 

(Relocation base addresses) 



*0 
*1 
*2 
*3 
«4 
*5 
$6 
*7 
$S 
«M 
*F 
$B 
*R 
End 



(SP) 
(PC) 
(PS) 

(Mask uiord) 
(Format register) 
(Breakpoint locations) 
(Relocation base addresses) 
of table of addresses 
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— Enter debugger to start program 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



000434 



000434 004737 004226 ' 



000440 012637 OOOOOOG 
000444 012637 OOOOOOG 



000450 000137 001054' 



SBTTL DBGENT — Enter debugger to start program 



DBGENT is jumped to uihen a program is started under the debugger. 
The following information is on the stack: 

0<SP) = PC of start point. 

2<SP) = PS to start with. 

DBGENT: 

Initialize the debugger 

CALL DBGINI ; Initialize the debugger 

Set starting address and initial PSW 





MOV 




<SP)+, D. 


R7 




MOV 




<SP)+, D. 


PS 


En 


ter deb 
JMP 


ugs 


er 
DBGRUN 





; Set starting address 
i Set starting PSW 



i Enter debugger 



ff 

€ 
I 
i 



I 

I 

i 
( 

4 

i 



I 

i 
i 
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i 
i 

I' 
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TSDBUG - 


— TSX-P 


lus debu 


gging mo 


DBGTRP - 


— Entry 


from tr 


ap 


1 
2 








3 








4 








5 








6 








7 








a 








9 








10 








11 








12 








13 


000454 






14 








15 








16 








17 


000454 


005704 




18 


000456 


001077 




19 








20 








21 








22 








23 


000460 


012637 


OOOOOOG 


24 


000464 


012637 


OOOOOOG 


25 


000470 


012637 


OOOOOOG 


26 


000474 


012637 


OOOOOOG 


27 


000500 


010037 


OOOOOOG 


28 








29 








30 








31 


000504 






32 


000514 


020527 


000001 


33 


000520 


001017 




34 


000522 






35 


000556 


000416 




36 


000560 






37 


000614 


013700 


OOOOOOG 


38 


000620 


004737 


007276 ' 


39 


000624 






40 








41 








42 








43 


000634 


042737 


OOOOOOC 


44 


000642 


013704 


OOOOOOG 


45 


000646 


013705 


OOOOOOG 


46 


000652 


000137 


001054' 


47 








48 








49 








50 








51 








52 


000656 


013706 


OOOOOOG 


53 


000662 


052737 


OOOOOOG 


54 


000670 


005037 


OOOOOOG 


55 


000674 


000137 


001510' 
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. SBTTL DBGTRP — Entry from trap 



DBGTRP is jumped to if a trap occurs in a program running under the 

debugger. 

On entry, the follouiing values are set up: 

0<SP) = Saved R5 

2<SP) = Saved R4 

4(SP) = Trap PC 

6(SP) = Trap PS 

R5 = Trap code (l==>Trap 4, 2==>Trap 10) 

R4 = Non-zero ==> Trap within debugger 

DBGTRP: 

See if the trap occurred in the debugger or in the user's program 



TST 
BNE 



R4 
10* 



Trap in debugger or user's program? 
Br if trap occurred in the debugger 



Trap occurred in the user's program. 
Save entry information. 



MOV (SP)+, D. R5 

MOV <SP)+, D, R4 

MOV (SP)+, D. R7 

MOV (SP)+, D. PS 

MOV RO, D. RO 

Print trap entry message 



i Trap PC 
i Trap PSW 



i Go to a new 1 ine 
J Trap to 4 or 10? 
,Bt if trap to 10 



1*: 

2*: 

4$: 



OOOOOOG 



TPRINT #CRLF 

CMP R5. #1 

BNE 1$ 

PRINT <Trap to 4 at location > 

BR 2* 

PRINT <Trap to 10 at location > 

MOV D. R7* RO ; Get address uihere trap occurred 

CALL LSTADR ; Display the address 

TPRINT #CRLF i Go to new line 

Enter the debugger 

BIC #<D*DBRK!D*IBRK!D*SBRK>, D. FLAG ; Say no breakpoint occurred 

MOV D. R4, R4 ; Restore R4 and R5 

MOV D. R5, R5 

JMP DBGRUN j Enter the debugger 

A trap occurred mithin the debugger. 

Restore context to condition at the time of the trap and then 

reenter the debugger. 



10*: 



OOOOOOG 



MOV 
BIS 
CLR 
JMP 



D. SPSV, SP 

#1 lOMrknc A44C}C!>i.i 

D. LOC 
NEWCMD 



/Restore the stack pointer 
iMaks sure previous mode ~ user 
j No currently open cell 
/Reenter the debugger 
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— Enter debugger by typing ctrl-D 



SBTTL DBGBRK — Enter debugger by typing ctrl-D 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



000700 



000700 010146 

000702 113701 OOOOOOG 

000706 042761 OOOOOOG OOOOOOG 

000714 052761 OOOOOOG OOOOOOG 

000722 012601 



000724 032737 OOOOOOG OOOOOOG 

000732 001002 

000734 004737 004226 ' 



DBGBRK is entered when the user requests entry to the debugger by typing 
ctrl-D. 

On entry, the stack is set up as follows: 
0<SP> = PC of next instruction. 
2<SP) = PS of next instruction. 

DBGBRK: 

Reset job control flag that was used to force the breakpoint 

MOV R 1 > - ( SP ) 

MOVE CORUSR/Rl i Get job index number 

BIC #*DBGBK, LSW9<R1 )i Clear flag saying to force debugger break 

BIS #*DEBUG, L3W9<R1 )i Say program is now running with debugger 

MOV <SP)+, Rl 

If we have not initialized the debugger, do the debugger startup 

BIT #D*INIT, D. FLAG ) Has initialization been done7' 

BNE 1* iBrifyes 

CALL DBGINI ; Initialize the debugger 



Enter debugger as if we hit a breakpoint 



000740 052737 OOOOOOG OOOOOOG 1*: 
000746 000137 000752' 



BIS #D*FBRK, D. FLAG ; Set flag saying we had a forced break 

JMP BRKENT ; Now enter debugger as if we had a breakpoint 
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— Enter debugger from breakpoint 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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41 
42 
43 
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53 
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SBTTL BRKENT 



Enter debugger from breakpoint 



BRKENT is jumped to when a breakpoint trap occurs. 
The folloming information is on the stack: 

0(SP) = PC of breakpoint trap. 

2<SP) = PS of breakpoint trap. 



000752 011637 OOOOOOG 
000756 010037 OOOOOOG 



BRKENT: MOV 
MOV 



(SP),D. R7 
RO, D. RO 



; Save breakpoint PC 
} Save user 's RO 



000762 
000766 
000774 



004/c>/ 
032737 
001023 



004456 ■ 
OOOOOOC OOOOOOG 



Determine if we should enter the debugger 

CALL BRKCHK > See if breakpoint causes program stop 

BIT #<D«DBRK!D*1BRK!D*SBRK!D«FBRK>, D. FLAG ; Breakpoint? 
BNE 5* J Br if this break will enter debugger 

This breakpoint will not enter the debugger. 

If we just executed an instruction that was under a breakpoint* 

set breakpoints and then continue program execution. 



000776 
001004 
001012 
001014 
001020 
001026 
001030 
001036 
001042 



042737 
032737 
001006 
004737 
042766 
000403 
052766 
013700 
000006 



OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 

004376 ' 
000020 000002 

000020 000002 
OOOOOOG 



3«: 
2*: 



BIC 

BIT 

BNE 

CALL 

BIC 

BR 

BIS 

MOV 

RTT 



#D*IPND> D. FLAG ; Say pending instruction has been executed 
#<D*DMON!D*SSTP!D*TSTP>, D. FLAG » Are we single stepping 



3* 

BRKSET 

#TRCTRP,2(SP) 

2$ 

#TRCTRP>2<SP) 

D. RO, RO 



; Br if yes 

; Set breakpoints 

i Reset trace trap flag in PSW 

i Set trap flag in PSW on stack 

; Recover RO 

j Return from breakpoint 



This breakpoint will enter the debugger. 
Save information and enter the debugger 



001044 
001050 



001054 
001062 
001066 
001072 
001076 
001102 
001106 
001110 



012637 
012637 



052737 
010137 
010237 
010337 
010437 
010537 
106506 
012637 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



5*: MOV (SP)+, D. R7 
MOV (SP)+, D. PS 

Save user's registers 



OOOOOOG 



DBGRUN: BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
MFPD 
MOV 



#D*RUN, D. FLAG 

R1,D. Rl 

R2, D. R2 

R3, D. R3 

R4, D. R4 

R5, D. R5 

SP 

<SP)+, D. R6 



} Save trap PC 
i Save trap PS 



i Set flag saying debugger is running 



Save initial stack pointer in case we need to restore it if an 
error occurs. 



001114 010637 OOOOOOG 



MOV 



SP, D. SPSV 



J Save initial stack pointer 



Clear the trace-trap flag in the user's TRAP instruction PSW. 

We may have set the trace-trap flag in this PSW if we were single 

stepping the program. 



i 
f 

i 

i 






001120 106537 000036 



MFPD 



e#36 



j Get user's TRAP PSW 



€ 

C 
I 

i 
i 
i 
i 

4 
I 



TSDBUG ■ 
BRKENT ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
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— Enter debugger from breakpoint 



001124 042716 000020 
001130 106637 000036 



BIG #TRCTRP. <BP) 
MTFD @#36 



i Clear the trace-trap flag 
i Store neui TRAP P3W 



If breakpoints are set in program* restore the real instructions 
that belong in the breakpoint locations. 



001134 042737 0000000 OOOOOOG 

001142 032737 OOOOOOC OOOOOOG 

001150 001014 

001152 004737 004302' 

001156 032737 OOOOOOG OOOOOOG 

001164 001406 

001166 162737 000002 OOOOOOG 

001174 052737 OOOOOOG OOOOOOG 



001202 005737 OOOOOOG 

001206 001407 

001210 032737 OOOOOOG OOOOOOG 

001216 001003 

001220 005337 OOOOOOG 

001224 001011 



BIC 

BIT 

BNE 

CALL 

BIT 

BEQ 

SUB 

BIS 



#D*IPND* D. FLAG i Clear instruction-pending flag 
#<D*DliON ! D*SSTP ! D«TSTP>, D. FLAG i Are ue single stepping? 

Br if yes 

Replace breakpoint instructions 

Did an instruction breakpoint occur? 

Br if not 

Backup PC to point to BPT 2nstructiuri 
» Remember instruction must be executed 



2* 

BRKRST 

#D*IBRK, D. FLAG 

2$ 

#2, D. R7 

#D*IPND» D. FLAG 



See if a proceed repeat count is in effect 



2*: TST D. PCNT 

BEQ 3$ 

BIT #D*FBRK, D. FLAG 

BNE 3* 

DEC D. PCNT 

BNE EXITl 



i Is a proceed repeat count in effect? 

i Br if not 

; Is this a forced breakpoint? 

; Br if yes — always stop 

> Should u»e skip this breakpoint? 

; Br if yes 



Clear temporary single-step flag 
001226 042737 OOOOOOG OOOOOOG 3*: BIG #D*TSTP; D. FLAG i Clear temporary single-step flat 

Put terminal control in debug mode 

CALL DBGON i Put terminal in debug mode 

Display information about the breakpoint 



001234 004737 007614' 



001240 004737 004670' 
001244 000137 001510' 



CALL 
JMP 



SHOBRK 
NEWCMD 



Display breakpoint information 
Enter the debugger 



i 
I 
f 

I 
I 
I 



€ 

f 

i 

t 

€ 

< 
I 

i 
I 
i 
i 
I 
I 



I* 



* € 

t 

i 
f 
i 



OOOOOOG OOOOOOG EXITl: 
OOOOOOC OOOOOOG 



TSDBUG — TSX-Plus debugging mo MACRO 
EXIT — Exit from debugger to user 



1 
2 
3 
4 

5 001250 

6 001256 

7 001264 

8 001266 

9 001274 

10 001300 

11 001306 

12 001312 

14 001322 

15 001326 
16 

17 
IS 
19 
20 
21 

22 001330 

23 001334 
001340 
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. SBTTL EXIT — Exit from debugger to user 
Exit from debugger to user's program. 



042737 
032737 
001403 
042737 
005037 
042737 
004737 
032737 
001003 
004737 
000406 



OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
007624 ' 
OOOOOOC OOOOOOG 

004376 ' 



BIC #D*FBRK» D. FLAG i Turn off forced-breakpoint flag 

BIT #<D*SSTP ! D*TSTP ! D*DMON>, D. FLAG ; Are we single stepping? 

BEQ 3* iBr if not 

BIC #D*IPND, D. FLAG i Turn of instruction-pending if single step 

3$: CLR D. LOC i Say no location is open 

BIC #D*RUNj D. FLAG i Say debugger is no longer running 

CALL DBGOFF ; Turn off terminal debug mode 

BIT #<D*IPND!D*DMOI\J!D*SSTP!D*TSTP>, D. FLAG > Should we single step? 

BNE 4$ iBr if yes 

CALL BRKSET ; Set breakpoints 

BR 1* 

We are single stepping the program. 

Set the trace-trap flag in the user's TRAP instruction PSW so u»e 

uiill continue to have program control during processing of TRAP 

instructions. 



24 
25 
26 
27 

28 001344 

29 001352 

30 001354 

31 001360 

32 001362 

33 001366 

34 001370 

35 001372 
36 

37 
38 

39 001376 

40 001402 

41 001404 

42 001410 

43 001414 

44 001420 

45 001424 
46 

47 

48 

49 001430 

50 

51 

52 

53 001434 

54 001442 

55 001450 

56 001452 

57 001460 



106537 
052716 
106637 



032737 
001411 
013705 
106515 
013704 
005104 
040405 
012637 



013746 
106606 
013705 
013704 
013703 
013702 
013701 



000036 
000020 
000036 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



4*: 



MFPD @#36 

BIS #TRCTRP, <SP) 

MTPD e#36 



} Get user's TRAP PSW 

iSet the trace-trap flag in the PSW 

i Store new TRAP PSW 



1*: 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



If lue are doing data monitoring^ save current value of monitored cell 

Are we doing data cell monitoring? 

Br if not 

Get address of cell being monitored 

Get current value from cell 

Get current data mask 

Complement 
jClear all but bits of interest 
> Save old value 

Restore user's registers 



BIT 


#D»DMON, D. FLAG 


BEQ 


2$ 


MOV 


D. DADR, R5 


MFPD 


<R5) 


MOV 


D. MASK, R4 


COM 


R4 


BIC 


R4, R5 


MOV 


( SP ) +, D. DOLD 



2*: 



MOV 


D. R6, -(SP) 


MTPD 


SP 


MOV 


D. R5, R5 


MOV 


D. R4, R4 


MOV 


D. R3, R3 


MOV 


D. R2, R2 


MOV 


D. R1,R1 



013700 OOOOOOG 



042737 
032737 
001403 
052737 
052737 



000020 OOOOOOG 
OOOOOOC OOOOOOG 

000020 OOOOOOG 
OOOOOOC OOOOOOG 



Exit point used if lue did not enter debugger 

EXIT2: MOV D. RO, RO 

See if we need to set Trap flag in PS 

BIC #TRCTRP; D. PS -Reset trace trap fla" in PS 

BIT #<D*IPND!D*DMON!D*SSTPiD*TSTP>, D. flag"; Do we want single step? 
BEQ 1* iBr if not 

BIS #TRCTRP,D. PS i Set Trap flag in user's PS 
1*: BIS #UMODE ! UPMODE, D. PS i Make sure user-mode is set in PS 



i 

c 



i 

I 
i 

I 

€ 
f 

i 
i 
I 

i 



4 

I 
f 

I 
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EXIT — Exit from debugger to user 



58 
59 
60 

61 001466 013746 0000000 

62 001472 013746 OOOOOOG 

63 001476 000006 



Use RTT instruction to reenter user's program 



MOV 
MOV 
RTT 



D. PS, -<SP) 
D. R7, -<SP) 



i Set PS for user 
; Set PC for user 
/Enter user's program 



I 
< 

i 
i 

i 



i 
i 

€ 

I 

1 
I 
I 
t 



i 
f 

i 
I 
I 

( 

I 
( 
I 



TSDBUG - 


— TSX-Plus debu 


.qging mo 


NEWCMD - 

1 
2 
3 


— Get new command 








4 








5 


001500 






6 








7 








8 








9 


001510 






10 








11 








12 








13 


001522 


105037 


OOOOOOG 


14 


001526 


005037 


OOOOOOG 


15 


001532 


105037 


OOOOOOG 


16 


001536 


005037 


OOOOOOG 


17 








IS 








19 








20 


001542 


004737 


005310' 


21 


001546 


010037 


OOOOOOG 


22 


001552 


110137 


OOOOOOG 


23 








24 








25 








26 


001556 


004737 


005756' 


27 


001562 


120027 


000073 


28 


001566 


001403 




29 


001570 


004737 


006022 ' 


30 


001574 


000406 




31 


001576 


004737 


005310' 


32 


001602 


010037 


OOOOOOG 


33 


001606 


110137 


OOOOOOG 


34 








35 








36 








37 


001612 


004737 


005756 ' 


38 


001616 


012701 


000024 


39 


001622 


120061 


000270 ' 


40 


001626 


001406 




41 


001630 


005301 




42 


001632 


002373 




43 


001634 






44 








45 








46 








47 








48 


001644 


006301 




49 


001646 


000171 


000314' 



. SBTTL NEWCMD — Get new command 
) Print carriage-return, line-feed and get new command 

i 

NEWLIN: TPRINT #CRLF 

Get neuj command 
NEWCMD; PRINT <DBG: > 

Assume neither valuel nor value2 is specified 

; value! not specified 



GETCMD: CLRB 
CLR 
CLRB 
CLR 



D vlFL 
D. VALl 
D. V2FL 
D. VAL2 



See if Valuel is specified 



CALL 

MOV 

MOVE 



ACRVAL 
RO. D. VALl 
Rl, D. VlFL 



See if value2 is specified 



1*: 



CALL 


GETCHR 


CMPB 


RO, #'; 


BEQ 


1* 


CALL 


PSHCHR 


BR 


2* 


CALL 


ACRVAL 


MOV 


RO, D. VAL2 


MOVB 


Rl.D. V2FL 



Look up command character 



2*: 
3*: 



CALL 


GETCHR 


MOV 


#NUMCMD, Rl 


CMPB 


R0>CMDTBL<R1) 


BEQ 


4* 


DEC 


Rl 


BGE 


3* 


ERR 


#EM*IVC 



;Value2 not specified 



i Try to accrue valuel 

» Save value for valuel 

j Remember if valuel specified 



i Get del imiter 

s is there a value2? 

i Br if possibly yes 

i Save command character 

i Get value2 

i Save value2 

i Save info about value2 



Get command character 

Get # valid command characters 

Search for character in table 

Br if found command character 

More command chars to check? 

Loop if ues 

Invalid command character 



Found command character. 

Jump off to processing routine. 



4*: ASL Rl 

JMP @CMDVEC(R1) 



Convert command index into word table index 
Jump to processing routine 



i 

i 



f 
I 

i 
t 
I 
t 

I 

I 

« 
I 
I 



4 

» 

i 

I 
I 
I 



» 



C 
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4 
5 
6 
7 
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. SBTTL — Command processing routines 
. oi} I I L ^- — tixaiTiiiiif luuru 



"address/" — Examine contents of word 



001652 
001656 

8 001664 

9 001666 

10 001672 

11 001700 

12 001704 

Ax^ WWX / X V/ 

14 001714 

15 001724 
16 

i. / 
18 
19 
20 

21 001730 

22 001734 
001742 
001750 
001754 

26 001760 

27 001762 

28 001766 

29 001776 

30 002002 

31 002004 

32 002010 

33 002016 

34 002022 

35 002032 



23 
24 
25 



004737 
032737 
001021 
105037 
012737 
004737 
010037 

r\r\A-rr>-7 
\j\J"r / >jf 



004737 
112737 
112737 
004737 
010037 
010002 
004737 

120227 
103002 
1 1 2702 

005237 

000137 



006426 ' 
000001 

OOOOOOG 

000002 

006714' 

OOOOOOG 

006136' 



000137 001522 



006426 ' 

000001 

000001 

006714' 

OOOOOOG 

006212' 

000040 

000056 

OOOOOOG 

001522' 



CMDSLH: 
OOOOOOG CMDSLl: 



OOOOOOG 



CALL 

BIT 

BNE 

CLRB 

MOV 

CALL 

MOV 

PRINT 
JMP 



SETLOC 
#1, D. LOC 
CMDBKS 
D. BYTM 
#2> D. ILEN 
GETVAL 
RO, D. LVAL 
PRTWRD 
< > 
GETCMD 



Set valuel as current location 

Is location odd I* 

If yes then treat "/" like "\" 

Say we are in word mode 

Say instruction length = 2 bytes 

Get contents of location 

Save last value displayed 

Print the value 

Print two spaces 

Go get next command 



.SBTTL "\" -- Examine byte 
"addressN" — Examine contents of a byte 



OOOOOOG 
OOOOOOG 



CMDBKS: 
CMDBKl: 



1$: 



CALL 

MOVE 

MOVB 

CALL 

MOV 

MOV 

CALL 

PRINT 

CMPB 

BHIS 

MOVB 

. TTYOUT 

INC 

PRINT 

JMP 



SETLOC 
#1, D. BYTM 
#1. D. ILEN 
GETVAL 
RO, D. LVAL 
RO, R2 
PRTBYT 

< = > 
R2, #40 
1$ 

#'. ,R2 

R2 

D. PCOL 

< > 
GETCMD 



Set valuel as current location 

Say we are operating in byte mode 

Say instruction length = 1 byte 

Get contents of location 

Save last value displayed 

Save value 

Print value 

Put in equal sign 

Is this a printing character? 

Br if yes 

Use period for non-printing chars 

Print character 

Advance print column 

Print 2 spaces 

Go get next command 



I 



f 



i 
I 
I 
t 
i 
f 
I 
C 
I 
( 

< 
t 

I 



TSDBUG — TSX-Plus debugging mo MACRO V05. 05 Wednesday 18-Jan-S9 15:24 Page 11 
»£" — Decode value as an instruction 



I 
t 

I' 

I 

I 

i 

[ 

I 
4 

I 

< 

( 

( 
< 

{ 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



002036 



002036 105737 0000000 

002042 001402 

002044 004737 006426 ' 

002050 013701 OOOOOOG 

002056 000137 001500' 

002062 032701 000001 

002066 001402 

002070 000137 001730' 

002074 105737 OOOOOOG 

002100 002002 

002102 000137 001656' 



002106 004737 007640' 



002112 013700 OOOOOOG 

002116 062700 000010 

002122 042700 000007 

002126 004737 012064' 



002132 000137 001522' 



. SBTTL "C" — Decode value as an instruction 
Open a cell and display its contents as an instruction. 
CMDDCD: 

See if an address mas specified 

Was an address specified? 

Br if not 

Set address of currently open cell 
1*: MOV D. LOC.Rl ;Is a cell currently open? 

or i r yes* 

Nothing to decode 
2*: BIT #1,R1 ; Is the address odd? 

Br if not 

Treat like "N"" if odd 
3$: TSTB D. LOOM i Is cell internal or external? 

Br if external 

Treat C like / for internal cell 



TSTB 


D. VIFL 


BEQ 


1* 


CALL 


SETLOC 


MOV 


D. LOCRl 


BNE 


2$ 


JMP 


NEWLIN 


BIT 


#1,R1 


BEQ 


3* 


JMP 


CMDBKS 


TSTB 


D. LOCM 


BGE 


4* 


JMP 


CMDSLl 



Decode the instruction 
4«: CALL DECODE 
i Tab over some 



MOV 


D. PCOL, RO 


ADD 


#8. , RO 


BIC 


#7, RO 


CALL 


ODCTAB 


inished 




JMP 


GETCMD 



/Decode the instruction 



; Get current print column 
•> Tab over some 

i Tab over 



I 

4 



f 
f 

i 
i 
i 

€ 



I 
I 

I 



f 
i 

i 



f 
I 
I 

i 
c 
i 
I 



TSDBUG - 


— TSX-P 


lus debu 


gging mo 


>i@t> — 

1 
2 
3 


Open in 


direct 










4 








5 








6 


002136 


013702 


ooooooe 


7 


002142 


010237 


OOOOOOG 


8 


002146 


112737 


000001 


9 


002154 






10 








11 








12 








A. %^ 






000001 


14 


002170 


001010 




15 








16 








17 








IS 


002172 


004737 


007100' 


19 


002176 






20 


002206 


000137 


001656' 


21 








22 








23 








24 


002212 


004737 


007100' 


25 


002216 






26 


002226 


000137 


001734' 


27 








2S 








29 








30 








31 








32 


002232 


013702 


OOOOOOG 


33 


002236 


063702 


OOOOOOG 


34 


002242 


062702 


000002 


35 


002246 


000137 


002142' 
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SBTTL 



'©' 



— Open indirect 



Open the cell luhose address is contained in the cell pointed to 
by D. LOG. 



CMDAT: MOV D. LVAL, R2 

CMDATl: MOV R2, D. LOG 

OOOOOOG MOVE #1,D. LOCM 

TPRINT #CRLF 



J Get last displayed value 

; Set as neu location to display 

i Say new address is in user's program 

i Go to a new 1 ine 



See if uie should do the display in byte or word mode 



BNE 



#i>R; 
1* 



i Shoulu we display in byte Of wot'u mudfe?'? 
i Br if need to go to byte mode 



Display new location in word mode 



CALL 

PRINT 

JMP 



SHOLOC 
< / > 
CMDSLl 



Display in byte mode 



1*: 



CALL 


SHOLOC 


PRINT 


< \ > 


JMP 


CMDBKl 


. SBTTL 


It II _ 



iDisplay the current address 

i Display "/" 

; Simulate the "/" command 



iDisplay the current address 

iDisplay "\" 

i Simulate the "\" command 

Open cell indirect, relative to PC 



II II __ 



Open indirect relative to PC. 



CMDUS: 



MOV 
ADD 
ADD 
JMP 



D. LVAL, R2 
D. LOG, R2 
#2, R2 
CMDATl 



i Get last displayed value 

iAdd PC of instruction 

i Plus 2 

i Now treat like "@" command 



i 
t 



t 

i 

K 

« 

I 

i 
K 
( 

i 
t 
t 

I 



i 
i 
f 

i 

f 
I 

f 

< 

< 
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offset 



1 

2 








3 








4 








5 


002252 






6 








7 








8 








9 








10 


002252 


013701 


OOOOOOG 


11 


002256 


105737 


OOOOOOG 


12 


002262 


003422 




13 








14 








15 








16 








17 


002264 






IS 


002274 


010100 




19 


002276 


004737 


006030 ' 


20 


002302 






21 


002310 


006301 




22 


002312 


013700 


OOOOOOG 


23 


002316 


166100 


OOOOOOG 


24 


002322 


004737 


006030 ' 


25 


002326 


000404 




26 








27 








28 








29 


002330 


013700 


OOOOOOG 


30 


002334 


004737 


007322 ' 


31 


002340 






32 








33 








34 








35 


002350 


000137 


001522' 



SBTTL 



— Convert address to relocation offset 



"n!" — Convert current address to relocation offset 
CMDEXP: 

If no relocation register number was provided/ find closest relocation 
base. 



MOV 

TSTB 

BLE 



D. VALl/Rl 
D. VIFL 
2% 



; Get relocation register # 

i Was a relocation register specified? 

j Br if not 



A relocation register number was provided. 

Display the relocation register number and the offset. 



PRINT 


< = > 


MOV 


R1,R0 


CALL 


PRTOCT 


PRINT 


<, > 


ASL 


Rl 


MOV 


D. LOC, RO 


SUB 


D. RLBS(R1),R0 


CALL 


PRTOCT 


BR 


8* 



Print "=" 

Get the relocation register number 

Print the relocation reg # 

Print ", " 

Convert relocation # to word table index 

Get original value 

Subtract relocation base 

Print the offset 



No relocation register number mas specified 
2*: 
8*: 

Finished 
9*: JMP OETCMD 



MOV 

CALL 

PRINT 



D. LOC, RO 
SHOADR 
< > 



i Get address 

iDisplay it with best relocation base 

i Print 2 spaces 



; Go get the next command 






f 
( 
I 
I 
f 
f 
i 
i 

4 
i 
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I 
I 
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002354 



002354 
002360 



002362 
002366 
002372 
002374 
002404 
002406 
002414 



1 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 

1 T 

A / 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 

28 002420 

29 002430 

30 002434 

31 002436 

32 002442 

33 002446 

34 002450 

35 002460 

36 002462 

37 002466 

38 002472 

39 002474 

40 002476 

41 002500 

42 002504 

43 002512 

44 002514 

45 002520 

46 002530 
47 

48 
49 
50 

51 002532 

52 002536 

53 002542 
54 

55 
56 
57 002552 



SBTTL 



i "address; nR" 
CMDR: 



' — Set relocation base register 
Set relocation base register 



If no value was specified for argument 2. then \tie are being 
asked to calculate the difference between the currently displayed 
value and the base of the relocation area. 

If argument 2 was specified, then we are setting the base of a 
relocation area. 



105737 
001417 



013701 
020127 
101404 



006301 
013761 
000137 



OOOOOOG 



TSTB 
BEQ 



D. V2FL 
2* 



; Was argument 2 specified? 
; Br if not 



Set base address for relocation area 



OOOOOOG 
000007 



OOOOOOG 
001500' 



i Get register number 
^Should not exceed 7 
i Br if ok 



1*: 



OOOOOOG 



MOV D. VAL2, Rl 

CMP Rl,#7 

BLOS 1* 

ERR #EM*IVL 

ASL Rl /Convert to word table index 

MOV D. VALl, D. RLBS<Rl)i Set address for relocation bast 

JMP NEWLIN ; Go get next command 



Calculate offset relative to relocation base 



>*: 



105737 
00 1 436 
013701 
020127 
101404 

006301 
013700 
166100 
010002 
010100 
006200 
004737 

010200 
004737 

000410 



OOOOOOG 

OOOOOOG 
000007 



OOOOOOG 
OOOOOOG 



006030 ' 



006030 ' 



3$: 



PRINT 


< = > 


TSTB 


D. VIFL 


BEQ 


4* 


MOV 


D. VALl.Rl 


CMP 


Rli #7 


BLOS 


3* 


ERR 


#EM*IVL 


ASL 


Rl 


MOV 


D. LVAL, RO 


SUB 


D. RLBS<R1),R0 


MOV 


RO, R2 


MOV 


R1,R0 


ASR 


RO 


CALL 


PRTOCT 


PRINT 


<, > 


MOV 


R2, RO 


CALL 


PRTOCT 


PRINT 


< > 


BR 


9* 



i Print "=" 

i Was a relocation reg # provided? 

; Br if not 

; Get register number 

fShould not exceed 7 

; Br if ok 

Convert to word table index 

Get currently open value 

Calculate offset 

Hold the offset value 

Get offset region # 

Convert to ordinal number 

Print relocation # 

Print comma 

Get offset value 

Print it 

Print a space 



No relocation register number was provided 
Show address with best relocation 



013700 
004737 



OOOOOOG 
007322 ' 



4*: 



MOV 

CALL 

PRINT 



000137 001522' 



Fini shed 
9*: JMP 



D, LVAL, RO 
SHOADR 



GETCMD 



; Get value of interest 
iDisplay the address 
! Print 2 spaces 



; Go get next command 



I 
f 

f 
I 
I 



f 
i 

i 
I 

€ 
I 



t 
I 

I 
I 



i 
I 
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1 



3 
4 
5 


002556 


105737 


OOOOOOG 


6 


002562 


001412 




7 


002564 


013702 


OOOOOOG 


8 


002570 


006302 




9 


002572 


020227 


000016 


10 


002576 


101416 




11 


002600 






12 


002610 


005002 




13 


002612 




OOOOOOG 


14 


002616 


001406 




15 


002620 


062702 


000002 


16 


002624 


020227 


000016 


17 


002630 


101770 




IS 


002632 


005002 




19 


002634 


013701 


OOOOOOG 


20 


002640 


004737 


007634 ' 


21 
22 
23 
24 
25 


002644 


010162 


OOOOOOG 


002650 


004737 


005244 ' 


26 


002654 


000137 


001500' 



. SBTTL 
"address; nB' 



"B" — Set breakpoint 
— Set breakpoint 



CMDB: TSTB D. V2FL 

BEQ 1* 

MOV D. VAL2, R2 

ASL R2 

CMP R2, #14. 

BLOS 3* 

ERR #EM*IVL 

CLR R2 

BEQ 3* 

ADD #2, R2 

CMP R2, #14. 

BLOS 4* 

CLR R2 

3*: MOV D. VAL1,R1 

CALL CHKADR 

MOV Rl, D. BKAD<R2) 



1*: 
4^: 



Was a breakpoint number specified? 

Br if not 

Get breakpoint number 

Convert to word table index 

Make sure it's not too big 

Br if ok 

Search for a free breakpoint entry 

Is this breakpoint free? 

Br if yes 

Point to next breakpoint entry 

Have lue checked all breakpoint entries? 

Br if more to check 

If all busy> then use # O 

Get address of breakpoint 

Make sure its ok 

Save address of breakpoint 



Set D*CKBK flag in D. FLAGS if there are any active breakpoints 



9*: 



CALL 
JMP 



FLGBRK 
NEWLIN 



i Set flag if any breakpoints are active 
i Go get next command 



I I 



I 

4 
4 



. f 



I 
I 
i 

c 

4 
I 
( 
t 

C 
i 
i 
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"G" — Start program execution 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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. SBTTL "G" — Start program execution 
"addressi G" — Start program execution. 



002660 
002664 
002666 
002674 
002704 
002710 



105737 
003403 
013737 

005037 
000137 



OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG 
001250' 



CMDG: 



1*: 



TSTB D. VIFL 

BLE 1* 

MOV D. VALliD. R7 

TPRINT #CRLF 

CLR D. PCNT 

JMP EXITl 



Was a starting address specified? 

Br if not 

Set starting address 

Go to neu line 

Clear any proceed count 

Start running program 



SBTTL 



Proceed from breakpoint 



"niP" — Proceed from breakpoint 



002714 
002720 
002722 
002730 
002740 



105737 
003403 
013737 



OOOOOOG 



OOOOOOG OOOOOOG 



CMDP: 



1*: 



000137 001250' 



TSTB D. VIFL i Was a proceed repeat count specified? 

BLE 1* ; Br if not 

MOV D. VALl, D. PCNT ; Set proceed repeat count 

TPRINT #CRLF ; Go to new line 

JMP EXITl j Enter user's program 



SBTTL 



Set/Rebet single-step mode 



'inS" — Set or reset single-step mode 



002744 
002752 
002756 
002760 
002764 
002766 
002774 



042737 
105737 
001406 
005737 
001403 
052737 
000137 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
001500' 



OOOOOOG CMOS: 



OOOOOOG 



1*: 



SBTTL 



#D*SSTP* D. FLAG /Assume he wants to reset single-step mode 

i Was a value specified for "n"? 
} Br if not 

i Is value 2 non-zero? 
} If zero, don't single step 
; Set single-step mode 
i Go get next command 

— Set/Reset I-space value inspection 



BIC 


#D*SSTP. D. FLAG 


TSTB 


D. V2FL 


BEQ 


1* 


TST 


D. VAL2 


BEQ 


1« 


BIS 


#D*SSTP, D. FLAG 


JMP 


NEWLIN 



"inl" — Set or reset I-space value inspection (for / and \) 
I-space is always used for instruction decoding 



003000 
003006 
003012 
003014 
003020 
003022 
003030 



042737 
105737 
001406 
005737 
001403 
052737 
000137 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
001500' 



OOOOOOG CMDI: 



OOOOOOG 



1*: 



BIC 


#D*ISPC, D. FLAG 


TSTB 


D. V2FL 


BEQ 


1* 


TST 


D. VAL2 


BEQ 


1* 


BIS 


#D«ISPC, D. FLAG 


JMP 


NEWLIN 



; Assume / and \ refer to D-space 

/Was a value specified for "n"? 

; Br if not 

; Was value zero? 

>0 or no value mean use D~space 

j Set I-space for / and \ 

> Go get next command 



€ 

< 
I 

< 
t 
t 
t 

€ 



i 
r 

f 



I 
c 

> € 



i 

i 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003034 



003034 
003040 
003042 



003046 
003052 



003060 
003066 



003072 
003076 
003100 
003102 
003104 
003110 
003114 



003116 
003120 
003124 
003130 
003132 
003136 
003140 
003142 
003146 
003152 



105737 
001407 
105037 



OOOOOOS 
OOOOOOG 



013700 
001407 



OOOOOOG 



003054 010037 OOOOOOG 



052737 
000137 



OOOOOOG 
002714' 



013701 
006521 
012602 
010200 
042700 
020027 
001361 



OOOOOOG 



000777 
004000 



010200 
042700 
020027 
001003 
062701 
000410 
010200 
042700 
072027 
1 1 6000 



177770 
000007 

000002 



177707 
177775 
003214' 



Wednesday ie-Jan-89 15:24 Page 17 



SBTTL "TAB" — Single step the program 



The TAB command causes us to go into temporary single step mode 

and to execute the next instruction. 

If "valueTAB is specified* we use the value as the address of 

the next instruction to execute. 

If "OTAB" is specified* we step over a subprogram call. 

CMDTAB: 

See if a value was specified with TAB 

> Mas value 1 specified? 

} Br if not 

i Clear value~l flag so it won't confuse jP 

A value was specified with TAB. 

If O was specified, skip over a subprogram call. 

If a non-zero value was specified* use this as a starting address. 



TSTB 


D. VIFL 


BEQ 


2* 


CLRB 


D. VIFL 



1*: 



MOV 
BEG 



D. VAL1*R0 
5* 



Get specified value 

==> Skip over subprogram call 



A starting address was specified. 



OOOOOOG 2*: 



MOV RO* D. R7 

Single step the program. 

BIS #D*TSTP* D. FLAG 
JMP CMDP 



/Set starting address 



i Say we are in temporary single step mode 
i Now treat tab like iP 



Argument value 1 is (zero). 

Step over a subprogram call. 

Make sure the current instruction is a CALL. 

5*: MOV D. R7*R1 * Get address of current instruction 

; Get instruction from user's program 
i Get the instruction from the stack 
; Copy the instruction word 
;Clear register # and address field 
i Is this a JSR instruction? 
i If not* ignore the number in front of TAB 

Determine address of instruction beyond CALL and set it as a location 
where a temporary breakpoint is to be set. 

Get the instruction 

Clear all but addressing register # 

Is it using register 7 <PC>? 

Br if not 

2 bytes for subroutine address if PC used 



MOV 


D. R7*R1 


MFPI 


(Rl) + 


MOV 


(SP)+, R2 


MOV 


R2, RO 


BIC 


#777, RO 


CMP 


RO, #0004000 


BNE 


2$ 



3*: 



MOV 


R2, RO 


BIC 


#•^07, RO 


CMP 


RO, #7 


BNE 


3* 


ADD 


#2, Rl 


BR 


4* 


MOV 


R2, RO 


BIC 


#-^C70, RO 


ASH 


#-3, RO 


MOVB 


INSLEN<RO),RO 



Get back the instruction 

Clear all but addressing mode 

Right justify the addressing mode 

Get # bytes used by this addressing mode 



< 
t 

i 

i 

I 

I 
I 
I 
€ 

c 
I 
f 
c 

i 

I 
4 

i 



I 



) 



« 



i 

r 
c 

c 

€ 
i 
C 
I 

i 

i 

i 
i 
I 

( 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 



71 
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Single step the program 



003156 060001 

003160 010137 OOOOOOG 4*: 

003164 052737 OOOOOOG OOOOOOG 



003172 042737 OOOOOOG OOOOOOG 

003200 

003210 000137 001250' 



003214 
003217 
003222 



000 
000 
002 



000 
000 
002 



000 INSLEN 
000 



ADD RO/Rl j Get address of location where breakpoint goes 

MOV R1,D. CBRK ; Set address of call break point 

BIS #D*CKBKi D. FLAG ; Set flag saying there are some breakpoints 

Reset single-step mode and continue with execution of the program 

BIG #D*SSTP, D. FLAG i Reset single step mode 
TPRINT #CRLF ; Go to a new line 

JMP EXITl ; Enter user's program 

Table providing number of bytes used by each addressing mode 

BYTE 0* 0* 0» 0» 0> 0> 2* 2 



EVEN 



I 
i 
f 

I 

c 
( 

( 

f 
t 

€ 
I 
I 
€ 

* 
( 
I 
I 
t 
I 



( 
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c 
i 
« 
i 
f 
I 



2 








3 








4 








5 


003224 






6 


003234 


013700 


OOOOOOG 


7 


003240 


004737 


006270 ' 


8 


003244 






9 


003254 


012737 


000002 


10 








11 








12 








13 


003262 


004737 


005756' 


14 


003266 


004737 


006022 ' 


15 


003272 


120027 


000015 


16 


003276 


001454 




17 


003300 


120027 


000012 


IS 


003304 


001451 




19 








20 








21 








22 


003306 


005001 




23 


003310 


012702 


000003 


24 


003314 


004737 


005756' 


25 


003320 


120027 


000015 


26 


003324 


001434 




27 


003326 


120027 


000012 


28 


003332 


001431 




29 


003334 


012703 


000220 ' 


30 


003340 


120023 




31 


003342 


001407 




32 


003344 


020327 


000270 ' 


33 


003350 


103773 




34 


003352 






35 


003362 


162703 


000221 ' 


36 


003366 


070127 


000050 


37 


003372 


060301 




38 


003374 


077231 




39 


003376 


004737 


005756' 


40 


003402 


120027 


000015 


41 


003406 


001403 




42 


003410 


120027 


000012 


43 


003414 


001370 




44 








45 








46 








47 


003416 


004737 


006022 ' 


48 


003422 


010100 




49 


003424 


004737 


006450 ' 


50 








51 








52 








53 


003430 


005037 


OOOOOOG 


54 


003434 


004737 


005756' 


55 


003440 


120027 


000012 


56 


003444 


001004 




57 


003446 


105037 


OOOOOOG 



PRINT 


< = > 


MOV 


D. LVAL, RO 


CALL 


PRTR50 


PRINT 


< > 


MOV 


#2, D. ILEN 



. SBTTL "X" — Display RAD50 value 

"X" — Convert currently displayed value from RAD50 to ascii. 

CMDX: PRINT < = > ; Print "=" 

i Get last displayed value 

/Convert to ascii and print 

i Print spaces 

< Say instruction length = 2 bytes 

See if user wants to enter a new RAD50 value for this cell 



t \»eT» i s b 

> Push the character 

; No new value wanted^' 

i Br if no new value specified 

i Advance to next cell? 

i Br if yes 



j Form new RAD50 value in Rl 

; Set count of # chars to accrue 

iGet next character of value 

i Reached end? 

i Br if yes 

• LF is also end 

Point to RAD50 character table 
3*: CMPB ROi <R3)+ i Search for char in table 

Br if found 
Checked all of table? 
Loop if not 

Invalid RAD50 character 
Get RAD50 character value 
Multiply previous value by 50 
Add new character value 
Loop if more characters needed 
Ignore other characters up to CR 



1*: 



4*: 



6*: 



CALL 


GETCHR 


CALL 


PSHCHR 


CMPB 


RO, #CR 


BEQ 


7* 


CMPB 


RO, #LF 


BEQ 


7* 


w accept 


a new RAD50 val 


CLR 


Rl 


MOV 


#3, R2 


CALL 


GETCHR 


CMPB 


RO, #CR 


BEQ 


2$ 


CMPB 


RO, #LF 


BEQ 


2* 


MOV 


#R50CHR, R3 


CMPB 


RO, <R3) + 


BEQ 


4* 


CMP 


R3, #R50CHR+50 


BLO 


3« 


ERR 


#EM*IRC 


SUB 


#R50CHR+1,R3 


MUL 


#50, Rl 


ADD 


R3, Rl 


SOB 


R2, 1* 


CALL 


GETCHR 


CMPB 


RO, #CR 


BEQ 


2* 


CMPB 


RO, #LF 


BNE 


6« 



We have gotten the RAD50 value. Store it in currently open ceil 



CALL 

MOV 

CALL 



PSHCHR 

R1,R0 

STRVAL 



i Save the terminating character 

;Get value to RO for STRVAL 

; Store value into currently open cell 



If command ended with Line feed, open next cell 



7*: 



CLR 


D. PCOL 


CALL 


GETCHR 


CMPB 


RO, #LF 


BNE 


9* 


CLRB 


D. VIFL 



: Sa" "rint column = O 



; Get the terminating character 

;Open the next cell? 

iBr if not 

iTell LF not to store into current cell 



I 
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"X" — Display RAD50 value 

58 003452 000137 003574' JMP CMDLF -Go open the next cell 

60 i Finished 

61 ; 

62 003456 000137 001500' 9*: JMP NEWLIN 



f 

i 
I 
I 
I 

( 



i 
I 
I 
( 



TSDBUG 
"M" — 



i 

i 
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Monitor data cell 

. SBTTL "M" — Monitor data cell 

"address; valueM" — Monitor data cell 



003462 042737 OOOOOOC OOOOOOG CMDM: 

003470 005737 OOOOOOG 

003474 001420 

003476 052737 0000000 OOOOOOG 

003504 013700 OOOOOOG 

003510 010037 OOOOOOG 



BIC 
TST 
BEQ 
BIS 
MOV 
MOV 



#<D*DMON.»D*DVAL>i D. FLAG iReset data-cell monitoring flags 



D. VALl 

9* 

#D*DMON, D. FLAG 

D. VAL1,R0 

RO, D. DADR 



Was an address specified? 

Br if not — Disable monitoring 

Enable data monitoring 

Get address of cell to monitor 

Set it as control address 



003514 105737 OOOOOOG 

003520 003406 

003522 052737 OOOOOOG OOOOOOG 

003530 013737 OOOOOOG OOOOOOG 



003536 000137 001500' 



See if breakpoint is to be triggered whenever value in cell changes 
or only when a specified value occurs. 

; Was a value specified? 
i Br if not 

; watch for specified value 
> Save the specified value 



TSTB 


D. V2FL 


BLE 


9* 


BIS 


#D*DVAL, D. FLAG 


MOV 


D. VAL2. D. DTRG 


i Finished 





9*: 



JMP 



NEWLIN 



} Go get next command 
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. SBTTL "CR' 



Close current location 



3 
4 
5 


003542 


005037 


OOOOOOG 


6 


003546 


105737 


OOOOOOG 


7 


003552 


003404 




S 


003554 


013700 


OOOOOOG 


9 


003560 


004737 


006450 ' 


10 


003564 


005037 


OOOOOOG 


11 
12 


003570 


000137 


001510' 


13 

14 








15 








16 








17 


003574 


005037 


OOOOOOG 


18 


003600 


005737 


OOOOOOG 


19 


003604 


001447 




20 


003606 


105737 


OOOOOOG 


21 


003612 


003404 




22 


003614 


013700 


OOOOOOG 


23 


003620 


004737 


006450 '• 


24 


003624 


105737 


OOOOOOG 


25 


003630 


001017 




26 


003632 


062737 


000002 OOOOOOG 


27 


003640 






28 


003650 


004737 


007100' 


29 


003654 






30 


003664 


000137 


001656' 


31 


003670 


005237 


OOOOOOG 


32 


003674 






33 


003704 


004737 


007100' 


34 


003710 






35 


003720 


000137 


001734' 


36 


003724 


000137 


001500' 



"carriage-return" — Close current cell 



CMDCR: CLR 
TSTB 
BLE 
MOV 
CALL 
CLR 
JMP 

. SBT1 



9*: 



D. POOL 

D. VIFL 

9* 

D. VAL1,R0 

STRVAL 

D. LOC 

NEWCMD 



; Say print column = 

i\4as a new value specified for this cell? 

; Br if not 

; Yes» get the value 

j Store value into current location 

i Say no location open nou 

; Go get next command 



Clubti luL-c^tioii and advaiiti^ to next 



"line-feed" — Close current cell and advance to next 



;MDLF: 



1*: 



2*: 



5*: 



CLR 


D. PCDL 


TST 


D. LOC 


BEQ 


5* 


TSTB 


D. VIFL 


BLE 


1* 


MOV 


D. VALl.RO 


CALL 


STRVAL 


TSTB 


D. BYTM 


BNE 


2* 


ADD 


#2, D. LOC 


. TTYOUT 


#CR 


CALL 


SHOLOC 


PRINT 


< / > 


JMP 


CMDSLl 


INC 


D. LOC 


TPRINT 


#CRCHAR 


CALL 


SHOLOC 


PRINT 


< \ > 


JMP 


CMDBKl 


JMP 


NEWLIN 



Say print column = 

Is a location open noui? 

Br if not 

Was a neu> value specified for this cell? 

Br if not 

Get neiu value 

Store into currently open cell 

Are we in byte or word mode? 

Br if in byte mode 

Advance location counter 

Go to new line 

Display address of new location 

Display "/" 

Simulate "/" command 

Advance to next byte 

go to new line 

Display address of new location 

Display "\" 

Simulate "\" command 

No cell open — Ignore LF 
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"1" — Close location and advance to instruction 



f 
< 
f 



3 
4 

5 


003730 


005037 


OOOOOOG 


6 


003734 


105737 


OOOOOOG 


7 


003740 


001402 




a 


003742 


000137 


002036 ' 


9 


003746 


005737 


OOOOOOG 


10 


003752 


001440 




11 


003754 


105737 


OOOOOOG 


12 


003760 


001017 




13 


003762 


063737 


OOOOOOG 


14 


003770 






15 


004000 


004737 


007100' 


16 


004004 






17 


004014 


000137 


002036 •' 


IS 


004020 


005237 


OOOOOOG 


19 


004024 






20 


004034 


004737 


007100' 


21 


004040 






22 


004050 


000137 


001730' 


23 


004054 


000137 


001500' 



. SBTTL "3" — Close location and advance to instruction 
— Close the current location and open next as an instruction. 



CMDRSB: 



3*: 



?*: 



5*: 



CLR 

TSTB 

BEQ 

JMP 

TST 

BEQ 

TSTB 

BNE 

ADD 

TPRINT 

CALL 

PRINT 

JMP 

INC 

TPRINT 

CALL 

PRINT 

JMP 

JMP 



D. PCOL 

D. VIFL 

3* 

CMDDCD 

D. LOG 

5* 

D. BYTM 

2* 

D. ILENi D, LOC 

#CRLF 

SHOLOC 

< Z > 
CMDDCD 
D, LOC 
#CRCHAR 
SHOLOC 

< \ > 
CMDBKS 
NEWLIN 



Say print column = 

Was an address specified? 

Br if not 

Treat 3 like C 

Is a location open now? 

Br if not 

Are (ue in byte or uiord mode? 

Br if in byte mode 

Advance location counter 

Go to new line 

Display address of new location 

Display "C" 

Simulate "l" command 

Advance to next byte 

go to new line 

Display address of new location 

Display "\" 

Simulate "\" command 

No cell open — Ignore LP 



r 

I 
ff 

I 

i 
i 
i 
i 
C 
I 

€ 

€ 

I 

c 
i 

i 
I 
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Close current location and go to previous 



f 
I 
t 
f 
I 
i 
< 



c 

i 
i 
i 



3 








4 








5 


004060 






6 
7 
8 
9 
10 


004070 


000400 










11 


004072 


005037 


0000000 


12 


004076 


005737 


0000000 


13 


004102 


001002 




14 


004104 


000137 


001500' 


15 


004110 


105737 


OOOOOOG 


16 


004114 


003404 




17 


004116 


013700 


OOOOOOG 


IS 


004122 


004737 


006450' 


19 


004126 


105737 


OOOOOOG 


20 


004132 


001017 




21 


004134 


162737 


000002 OOOOOOG 


22 


004142 






23 


004152 


004737 


007100' 


24 


004156 






25 


004166 


000137 


001656' 


26 


004172 


005337 


OOOOOOG 


27 


004176 






28 


004206 


004737 


007100' 


29 


004212 






30 


004222 


000137 


001734' 



. SBTTL "•'-" — Close current location and go to previous 
"Backspace" — Equivalent to up-arrow 



CMDBSP: . TTYOUT #136 
BR CMDUP 



; Print "'•" 

; Now treat backspace like up-arrow 



It .->. II 


— Close 


current 1 


CMDUP: 


CLR 


D. POOL 




TST 


D. LOC 




BNE 


3* 




JMP 


NEWLIN 


3*: 


TSTB 


D. VIFL 




BLE 


1« 




MOV 


D. VAL1,R0 




CALL 


STRVAL 


1*: 


TSTB 


D. BYTM 




BNE 


2* 




SUB 


#2, D. LOC 




TPRINT 


#CRLF 




CALL 


SHOLOC 




PRINT 


< / > 




JMP 


CMDSLl 


2*: 


DEC 


D. LOC 




TPRINT 


#CRLF 




CALL 


SHOLOC 




PRINT 


< \ > 




JMP 


CMDBKl 



Say print column = 
open? 



Is a cell 

Br i 'f yes 

Ignore if 

Was a new 

Br if not 

Get new value 

Store into currently open 



no cell open 
value specified 



for this cell? 



cell 



Are we in byte or word mode? 

Br if in byte mode 

Move to previous word 

Go to new line 

Display address of new location 

Display "/" 

Simulate "/" command 

Move to previous byte 

go to new line 

Display address of new location 

Display "\" 

Simulate "\" command 



I 
f 

* 

€ 

I 

I 

i 
i 
i 
I 



t 
t 
i 
t 

« 

c 
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MACRO V05. 05 Wednesday i8-Jan-89 15:24 Page 23 



. SBTTL — Subroutines — 

. SBTTL DBGINI — Initialize the debugger 



3 










4 










5 










6 










7 004226 


010046 






I 


S 










9 










10 










11 004230 


012700 


OOOOOOG 






12 004234 


005020 






1 


13 004236 


020027 


OOOOOOG 






14 004242 


103774 








15 004244 


012737 


177777 


OOOOOOG 




16 004252 


052737 


OOOOOOG 


OOOOOOG 




17 










18 










19 










20 










21 004260 


052737 


OOOOOOG 


OOOOOOG 




22 










23 










24 










25 004266 










26 








i 


27 








i 


28 








} 


29 004276 


012600 








30 004300 


000207 









DBGINI is called to initialize the debugger. 
The debugger greeting message is also printed. 



DBGINI: MOV 



RO, -<SP) 



Initialize some debugger values 



1*: 



MOV 
CLR 

CMP 
BLO 
MOV 
BIS 



;Point to start of debugging data 
iClear all debuaaina data to 



#D. START, RO 

(R0) + 

RO, #D. END 

1* iLoopifnot 

#177777* D. MASK ; Initialize the data mask 

#D$INIT, D. FLAG ; Say initialization has been done 



Set previous-mode = user in our PSW so we can use MFPD/MTPD to 
access user's program. 



BIS #UPMODE, @#PSW 
Print greeting message 

TPRINT #TM«GRT 

Fini shed 

MOV <SP)+, RO 
RETURN 



; Say previous mode = user 



i Print greeting message 



i 



I 

i 



€ 
i 

i 
i 
€ 

i 



I I 



I 
I 
i 
i 



TSDBUO - 
BRKRST - 

1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

t -r 

X f 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



— TSX-Plus debugging mo MACRO V05. 05 

— Reset breakpoint instructions 



004302 
004304 
004312 
004314 
004322 



004324 
004326 
004332 
004334 
004336 
004342 
004344 
004350 
004352 
004356 
004362 
004364 



29 

30 004372 

31 004374 



010146 
032737 
001427 
032737 
001423 



005001 
016100 
001407 
006510 
022627 
001003 
016146 
006610 
062701 
020127 
101761 
042737 



012601 
000207 
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SBTTL BRKRST — Reset breakpoint instructions 



BRKRST is c 
It restores 
by BPT inst 



0000000 
OOOOOOG 



OOOOOOG 
OOOOOOG 



BRKRST: 



OOOOOOG 

000003 

OOOOOOG 

000002 
000020 

OOOOOOG OOOOOOG 



MOV 
BIT 
BEQ 
BIT 
BEQ 



/ i^cscfv All 

CLR 
1*: MOV 
BEQ 
MFPI 
CMP 
BNE 
MOV 
MTPI 
2*: ADD 
CMP 
BLOS 
BIC 

i Finished 



ailed on entry to the debugger when a breakpoint occurs. 

the contents of the instruction cells that were replaced 
ructions for breakpoints. 

R 1 , - < SP ) 

#D*BKST. D. FLAG i Are breakpoints set in program? 

9« ; Br if not 

#D*CKBK* D. FLAG i Are there any active instruction breaks? 

9« ; Br if not 



iw«r I c 



r% 1 1 »% 1H. f^ ••^ 1* tH. im H HH (k •_ 

u i^ u I ca n p u J, II w» 



9*: 



MOV 
RETURN 



Rl 

D. BKAD(R1>, RO 

2$ 

<R0) 

<SP)+, #3 

2$ 

D. BKSV<R1), -(SP) 

(RO) 

#2, Rl 

Rl, #16. 

1* 

#D*BKST> D. FLAG 



<SP)+, Rl 



Init index into breakpoint tables 
Get address of breakpoint 
if this breakpoint 



Br 



_. _. _. ^ . not in use 

Get breakpoint instruction 

Is this a breakpoint instruction? 

Br if not 

Get saved instruction 

Restore saved instruction 

Advance breakpoint index 

Checked ail breakpoints? 

Loop if more to check 

Say breakpoints no longer set 



I 
f 

( 
( 

c 
I 
I 

€ 

I 
I 
4 

I 



► 



I 



I 
( 

f 
i 
i 
i 
( 
i 

{ 
I 
i 
< 

< 
f 



i 



< 
i 



TSDBUG -- TSX-Plus debugging 
BRKSET — Set breakpoints 



3 
4 
5 

6 004376 

7 004400 

8 004406 
9 

10 
11 
12 004410 

J*-* J-K f\ it n ■» ft 

U uOH'tit 

14 004420 
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SBTTL BRKSET — Set breakpoints 



BRKSET is called when leaving the debugger and entering the user's program. 
It sets BPT instructions in those locations marked for breakpoints. 



16 004424 

17 004430 

18 004434 

19 004436 

20 004442 

21 004444 

23 
24 

25 004452 

26 004454 



010146 
032737 
001416 



012701 

r\ .1 I * r\r\ 
W J.OJIUW 

001406 
006510 
012661 
012746 
006610 
162701 
002364 
052737 



012601 
000207 



0000000 OOOOOOG 



BRKSET: MOV R1,-(SP) 

BIT #D*CKBK, D. FLAG 
BEQ 3* 

i 

; Set breakpoints 



; Are there 
; Br if not 



any instruction breakpoints? 



000020 

OOOOOOG 



OOOOOOG 
000003 



1$: 



000002 

OOOOOOG OOOOOOG 



2*: 
3*: 



MOV 

MOV 

BEQ 

MFPI 

MOV 

MOV 

MTPI 

SUB 

BGE 

BIS 



; Get index for last breakpoint 
f&et addresa uihere breakpoint goes 
; Br if this breakpoint not in use 
; Get current contents of location 



#16. >R1 

D. BKAD < R 1 ) * HO 

2« 

(RO) 

(SP)+» D. BKSV<R1 ); Save original contents of cell 



Finished 



MOV 
RETURN 



#3, -<SP) 

<R0) 

#2. Rl 

1* 

#D*BKST, D. FLAG 



(SP)+, Rl 



i Push BPT instruction 

; Store BPT instruction into user 

i More breakpoints to checkT' 

; Br if yes 

/Set flag saying breakpoints set 



5 program 



in program 



f 
f 

t 
I 

< 

( 
I 

i 

< 
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c 



I 






f 

I 
I 

« 



1 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

1 T 

14 
15 
16 

1 "7 

X I 

IS 

19 

20 

21 

22 004456 

23 

24 

25 

26 004460 

27 

28 

29 

30 004166 

31 004474 

32 004476 

33 004502 

34 004504 

35 004510 

36 004512 

37 004514 

38 004522 
39 

40 004524 

41 004530 

42 004532 
43 

44 004534 

45 004540 
46 

47 

48 

49 004542 

50 

51 

52 

53 004550 

54 004556 
55 

56 
57 



SBTTL BRKCHK 



Determine type of breakpoint 



Determine the type of breakpoint that has occurred. 
There are four different types of breakpoints: 

1. Data breakpoints that avB triggered when a monitored cell changes 
value or takes on a specified value. 

2. Instruction breakpoints set by use of the "a; nB" instruction. 

3. Instruction breakpoint used to catch a CALL return. 

4. Single-step breakpoints that result from the use of the "i IS" 
command. 



Inputs: 



or" - £ J. — — 
I w fia F 1/ e I 



wii tr u I cu 



ak 



010146 



042737 OOOOOOC 0000000 



032737 
001425 
013701 
106511 
013701 
005101 
040116 
032737 
001004 

022637 

001004 
000406 

022637 
001003 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



Outputs: 
D*DBRK in D. FLAG ==> Data breakpoint 
D*IBRK in D. FLAG --> In&truction breakpoint 

D*SBRK in D. FLAG ==> Single-step breakpoint or CALL breakpoint 
D*FBRK in D. FLAG ==> Forced breakpoint (user typed ctrl-B) 
D. BKNIi = Breakpoint number 

BRKCHK: MOV R1,-<SP) 

Clear instruction and data breakpoint flags 

BIC #<D*DBRK!D*IBRKID«SBRK>, D. FLAG ; No breakpoints yet 

See if a data breakpoint is active 

i Is a data breakpoint active? 
; Br if not 

i Get address of monitored cell 
; Get contents of monitored cell 
; Get data mask 
; Complement 

i Leave only bits of interest 
i Are we waiting for a specified value? 
> Br if yes 
> Trigger data breakpoint whenever monitored data cell changes value 

CMP (SP)+, D. DOLD iHas value changed? 

BNE 3* ; Br if yes — trigger breakpoint 

BR 1* i Hasn't changed — no data break 

; Trigger data breakpoint if value takes on specified value 
2*: CMP <SP)+, D. DTRG J Does cell have value of interest? 

BNE 1* i Br if not — no data breakpoint 



BIT 


#D*DMON, D. 


FLAG 


BEQ 


1* 




MOV 


D. DADR,R1 




MFPD 


<R1) 




MOV 


D. MASK, Rl 




COM 


Rl 




BIC 


Rl, (SP) 




BIT 


#D*DVAL, D. 


FLAG 


BNE 


2* 





Trigger a data breakpoint 
052737 OOOOOOG OOOOOOG 3*: BIS #D*DBRK, D. FLAG ; Set data-breakpoint flag 

See if we need to check for instruction or single-step breakpoints 



U32737 
001442 



OOOOOOC OOOOOOG 1*: 



BIT tt<"n*Qc;TP I n*TC}TP ' n«runK'>. n m ac : Ann -i r»c+-T%..,- + iQr» h-r^n^k'^ "•" -4.»o 
BEQ 9* ; Br if neither instruction brks or single step 

Ignore single-step and instruction breakpoints if we just 
executed a pending instruction. 



4 
I 
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i 
f 

€ 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 



004560 
004566 



004570 
004576 
004600 
004606 
004614 



004616 
004622 
004626 
004632 
004636 
004640 
004644 
004646 



004650 
004652 
004656 



004664 
004666 



*^ /"^ *^ •-» *^ •«» 

001036 



032737 
001407 
052737 
112737 
000423 



012701 
013700 
162700 
020061 
001404 
162701 
002372 
000406 



006201 
110137 
052737 



012601 
000207 



OOOOOOG OOOOOOG 



OOOOOOC OOOOOOG 

OOOOOOG OOOOOOG 
000011 OOOOOOG 



5*: 



BIT #D*IPNu^ D. i-LAG ;Did \ue just execute a pending instruction' 

BNE 9* i Br if yes 

See if this is a single-step breakpoint 

BIT #D*SSTP !D*TSTP» D. FLAG i Are we single stepping program? 

BEQ 4* ; Br if not 

BIS #D*SBRK, D. FLAG ; Set single-step breakpoint flag 

MOVE #9. ,D. BKNM i Say this is breakpoint # 9 

BR 9* 

See if this is an instruction breakpoint 



000020 
OOOOOOG 
000002 
OOOOOOG 

000002 



4*: 



MOV #16. ,R1 

MOV D. R7, RO 

SUB #2, RO 

7*: CMP RO, D. BKAD<R1) 

BEQ 6« 

SUB #2, Rl 

BGE 7* 

BR 9* 



Init breakpoint index 

Get address after breakpoint 

Point to break instruction 

Search for which breakpoint was hit 

Br if found it 

Get next breakpoint index 

Loop if more breakpoint to check 

This is not an instruction breakpoint 



We hit an instruction breakpoint 



OOOOOOG 
OOOOOOG OOOOOOG 



6*: ASR 
MOVB 
BIS 

Finished 

9*: MOV 

RETURN 



Rl i Get breakpoint number 

R1<D. BKNM 

#D*IBRK> D. FLAG ; Remember uie had an instruction break 



<SP)+,R1 



€ 

i 
i 

i 

i 

t 
I 

( 

c 

« 



c 

I 

I 

' c 
I 
r 



I 
I 

f 

4 
< 

i 
I 

i 
i 
i 
{ 



TSDBUG - 
SHOBRK - 

1 

r> 

Km 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 
1 n 

14 
15 
16 

1 -r 

X / 

IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Display breakpoint information 



. SBTTL SHOBRK 



Display breakpoint information 



004670 010146 
004672 



004702 032737 OOOOOOG 0000000 

004710 001454 
nnATi n 

004736 013700 OOOOOOG 

004742 004737 007276 ' 

004746 

004760 013700 OOOOOOG 

004764 004737 007276 ' 

004770 

005000 013700 OOOOOOG 

005004 106510 

005006 012600 

005010 010037 OOOOOOG 

005014 004737 006136' 

005020 013700 OOOOOOG 

005024 005100 

005026 040037 OOOOOOG 

005032 



SHOBRK is called to display information about a breakpoint 
that has been triggered. 

SHOBRK: MOV R1,-(SP) 

TPRINT #CRLF iGet to start of new line 

See if a data breakpoint occurred 

iDid a data breakpoint occur? 
; Br if not 

i Get breakpoint PC 
J Display the address 

j Get address of monitored cell 
i Display it 

(Get address of cell 

iGet current contents of cell 

i Save old cell value 
;Display value of cell 
J Get data mask 
i Complement 

iClear all but bits of interest 
TPRINT #CRLF i Go to new line 

See if a single-step breakpoint occurred 



BIT 


#D*DBRK, D. FLAG 


BEQ 


1« 


PRINT 


<Data break at 


MOV 


D. R7, RO 


CALL 


LSTADR 


PRINT 


< — > 


MOV 


D. DADR, RO 


CALL 


LSTADR 


PRINT 


< = > 


MOV 


D. DADR, RO 


MFPD 


<R0) 


MOV 


(SP)+, RO 


MOV 


RO, D. DOLD 


CALL 


PRTWRD 


MOV 


D. MASK, RO 


COM 


RO 


BIC 


RO, D. DOLD 



005042 032737 OOOOOOG OOOOOOG 1$: 

005050 001406 

005052 5«: 

005064 000451 



BIT 


#D*SBRK, D. FLAG 


BEQ 


2« 


PRINT 


<Step:> 


BR 


3* 



;Did a single-step breakpoint occur? 

;Br if not 

j Print heading 

i Now treat like instruction breakpoing 



See if an instruction breakpoint occurred 



005066 032737 OOOOOOG OOOOOOG 2*: 

005074 001426 

005076 

005106 123727 OOOOOOG 000010 

005114 001003 

005116 005037 OOOOOOG 

005122 000753 

005124 6*: 

005132 113700 OOOOOOG 

005136 004737 006030' 

005142 

005150 000417 



BIT 


#D*IBRK,D. FLAG 


BEQ 


4« 


TPRINT 


#CRLF 


CMPB 


D. BKNM, #8. 


BNE 


6« 


CLR 


D. CBRK 


BR 


5* 


PRINT 


<B> 


MOVE 


D. BKNM, RO 


CALL 


PRTOCT 


PRINT 


<;> 


BR 


3* 



Instruction breakpoint? 

Br if not 

Go to new line 

CALL breakpoint? 

Br if not 

Clear the call breakpoint 

Br if yes — Treat like single step break 

; Get breakpoint number 
; Print breakpoint number 



005152 032737 OOOOOOG OOOOOOG 4*: 

005160 001427 

005162 

005172 



See if we had a forced breakpoint 

BIT #D*FBRK, D. FLAG ; Forced breakpoint? 

BEQ 9* ;Br if not 

TPRINT #CRLF i Go to a new line 

PRINT <Break at > 



I 
I 

I 
I 
f 

i 
f 
t 

i 

i 
c 

i 
i 

€ 



I 
I 
I 

4 

4 
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SHOBRK — Display breakpoint information 



58 
59 
60 

61 005210 013700 0000000 

62 005214 004737 007276' 
63 

64 
65 

66 005220 013701 OOOOOOG 

67 005224 004737 007640' 

68 005230 
69 

/ \J 

71 

72 005240 012601 

73 005242 000207 



Display the address of the breakpoint 



3*: 



MOV 
CALL 



D. R7, RO 
LSTADR 



i Get address where break occurred 
;Oisplau the address 



Display the decoded instruction 



MOV D. R7, Rl 
CALL DECODE 
TPRINT #CRLF 



» Get address of break 

^Display the decoded instruction 

; Go to neu 1 ine 



Fiiii lahed 



9«: 



MOV (SP)+, Rl 
RETURN 



( 

( 

i 

I 

€ 

I 

f 

1 

i 

i 

« 

i 

t 
{ 
I 



I 

4 



, i 

C 

I 
I 



I 



I 
i 

i 
I 
I 

f 
t 

t 



TSDBUG 
FLGBRK 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 
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— Set flag if any breakpoints are active 



005244 010146 



005246 012701 000020 

005252 005761 OOOOOOG 

005256 001007 

005260 162701 000002 

005264 002372 



005266 042737 OOOOOOG OOOOOOG 

005274 000403 



. SBTTL FLGBRK — Set flag if any breakpoints are active 

FLGBRK is called to determine if there are any active instruction 
breakpoints. If there are. the D*CKBK flag is set in D. FLAG; 
otherwise the D*CKBK flag is reset. 

FLGBRK: MOV R1,-(SP) 

Determine if there are any normal instruction breakpoints 



5*: 



MOV #16. ,R1 

TST D. BKAD<R1) 

BNE 6* 

SUB #2, Rl 

BGE 5* 

No breakpoints are active 



; Get index to last breakpoint entry 

i Is this breakpoint set? 

i Br if yes 

i More to check? 

i Loop if yes 



BIC 
BR 



#D*CKBK. D. FLAG i No breakpoints are set 
9* 



There are active breakpoints 
005276 052737 OOOOOOG OOOOOOG 6*: BIS #D*CKBK, D. FLAG i Remember some breakpoint is set 

Finished 
9*: 



005304 012601 
005306 000207 



MOV < SP ) +, R 1 
RETURN 



I 

I 

d 

€ 
f 

i 
I 

( 
( 
< 
i 



« 
t 

I 



I f 



\ 



« 



TSDBUG ■ 


— TSX-Plus debtj 


gging mo 


ACRVAL - 

1 
2 
3 


— Accrue a general valu 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


005310 


010246 




16 








17 








IS 








19 


005312 


004737 


005756 ' 


20 


005316 


120027 


000044 


21 


005322 


001461 




22 


005324 


120027 


000056 


23 


005330 


001451 




24 


005332 


004737 


006022 ' 


25 


005336 


120027 


000053 


26 


005342 


001414 




27 


005344 


120027 


000055 


28 


005350 


001411 




29 


005352 


120027 


000060 


30 


005356 


103403 




31 


005360 


120027 


000071 


32 


005364 


101403 




33 








34 








35 








36 


005366 


005001 




37 


005370 


005000 




38 


005372 


000457 




39 








40 








41 








42 


005374 


004737 


005536' 


43 








44 








45 








46 


005400 


010102 




47 


005402 


120027 


000054 


48 


005406 


001016 




49 


005410 


020227 


000007 


50 


005414 


101404 




51 


005416 






52 


005426 


006302 




53 


005430 


004737 


005756 ' 


54 


005434 


004737 


005536 ' 


55 


005440 


066201 


OOOOOOG 


56 


005444 


010100 




57 


005446 


012701 


000001 
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BBTTL ACRVAL 



Accrue a general value 



ACRVAL is called to accrue a general value of the form 

Zr, lvalue or *x 

where "r" is a relocation base register number* 

and "x" is an internal register number. 

Outputs: 
RO = Value accrued. 
Rl = Status flag: 

+1 ==> normal value 

==> No value gotten. 
— 1 =iii> Internai register address. 

ACRVAL: MOV R2, -<SP) 

Get ist character and see if this is a normal value or a register name. 

Get 1st character 

Is this a register value? 

Branch if yes 

". " = Current program counter 

Br if period 

Save the character 

Is this a sign character?" 

Br if yes 



CALL 


GETCHR 


CMPB 


RO, #'* 


BEQ 


1* 


CMPB 


RO, #'. 


BEQ 


10« 


CALL 


PSHCHR 


CMPB 


RO, #' + 


BEQ 


2$ 


CMPB 


RO, #'- 


BEQ 


2« 


CMPB 


RO, #'0 


BLO 


8$ 


CMPB 


RO, #'9 


BLDS 


2$ 



No value was specified 



8*: 



CLR 
CLR 
BR 



Rl 
RO 
9* 



; Is this character a digit? 
; Br if not a digit 

;Br if a digit 



i Return status code 
i Return value of O 



i Accrue normal value 

i 

2$: CALL ACRNUM 



} Accrue first part of number 



See if 1st part of value is a relocation base register number 

; Save value that was accrued 
iWas first part terminated with a comma? 
; Br if not 

; Is first part a valid register number? 
i Br if ok 
ERR #EM*IRB 

4*; ASL R2 ; Convert reg # to word table index 

iSkip over comma 
i Accrue second part of number 
;Add relocation base to offset value 

3*: MOV R1,R0 ; Return value in RO 

; Return status code in Rl 



MOV 


R1,R2 


CMPB 


RO, #', 


BNE 


3* 


CMP 


R2, #7 


BLOS 


4* 


ERR 


#EM*IRB 


ASL 


R2 


CALL 


GETCHR 


CALL 


ACRNUM 


ADD 


D. RLBS<R2),R1 


MOV 


Rl, RO 


MOV 


#1, Rl 



< 



4 



i 
f 

I 
i 

€ 

I 

i 
i 
4 
I 






I ( 



< 
( 
i 
I 
i 
c 
I 
1 
i 
i 

< 



i 
I 

I 



TSDBUG - 


— TSX-Plus debu 


gging mo 


ACRVAL ■ 


— Accrue a general valu 


58 
59 
60 


005452 


000427 










61 








62 


005454 


013700 


OOOOOOG 


63 


005460 


012701 


000001 


64 


005464 


000422 




65 








66 








67 








68 


005466 


004737 


005756 ' 


69 


005472 


012701 


000014 


70 


005476 


120061 


000364 ' 


71 


005502 


001406 




72 


005504 


005301 




73 


005506 


002373 




74 


005510 






75 


005520 


006301 




76 


005522 


016100 


000402 ' 


77 


005526 


012701 


177777 


78 








79 








SO 








81 


005532 


012602 




82 


005534 


00020/ 
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10*: 



BR 

Value is 

MOV 
MOV 
BR 



9* 



<p 


eriod ) 


D. 


R7, RO 


#1 


»R1 


9* 





Internal value ("*x") 



1$: 
6*: 



5*: 



9*: 



CALL 


GETCHR 


MOV 


#NUMINT-1> Rl 


CMPB 


RO, INTCHR<R1) 


BEQ 


5* 


DEC 


Rl 


BGE 


6$ 


ERR 


#EM$IIV 


ASL 


Rl 


MOV 


INTADR(Rl), RO 


MOV 


#-l,Rl 


Finished 




MOV 


(SP)+, R2 


RETURN 





i Return 

Use current program counter. 

i Get current program counter value <R7) 
; Say we got a normal value 
; Return 



Get register letter 

Get # internal registers 

Look up register letter 

Br if found 

More to check? 

Loop if yes 

Invalid register name 

Convert index to word table index 

Get address of cell for register 

Get status code 



I 

i 
t 

I 



I 
I 

i 
1 
t 
< 

i 
( 
t 
C 

t 
I 
i 





TSDBUG - 


— TSX-Plus debu 


gging mo 




ACRNUM - 


— Accrue a numb 


er 




1 
2 
3 










4 
5 
6 










7 

e 

9 










10 


005536 


010246 




11 


005540 


010346 






12 


005542 


010546 






13 










14 
15 










16 


005544 


005002 




17 


005546 


004737 


005756 ' 




18 


005552 


120027 


000053 




19 


005556 


001407 




20 


005560 


120027 


000055 




21 


005564 


001002 






22 


005566 


005202 




23 


005570 


000402 






24 


005572 


004737 


006022 ' 




25 








26 










27 










28 


005576 


012701 


0000000 


29 


005602 


012705 


000010 




30 


005606 


004737 


005756' 




31 


005612 


120027 


000060 


32 


005616 


103415 






33 


005620 


120027 


000071 


\ 


34 


005624 


101012 




35 


005626 


120027 


000067 




36 


005632 


101402 






37 


005634 


012705 


000012 


38 


005640 


020127 


OOOOOOG 




39 


005644 


103040 






40 


005646 


110021 




41 


005650 


000756 






42 










43 








44 










45 


005652 


105011 




1 < 


46 


005654 


120027 


000056 


47 


005660 


001003 




i 


48 


005662 


012705 


000012 


I* 


49 


005666 


000402 




50 


005670 


004737 


006022 ' 




51 








1 f 


52 








53 










54 


005674 


012703 


OOOOOOG 




55 


005700 


005001 






56 


005702 


112300 






57 


005704 


001405 
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. SBTTL ACRNUM — Accrue a number 



ACRNUM is called to accrue a number. 

The number may be octal or decimal (uith a decimal point). 



Outputs: 
Rl = Value accrued 
RO = Delimiter character that uas hit. 



ACRNUM: MOV 
MOV 
MOV 



R2, -(SP) 
R3i-(SP) 
R5, -(SP) 



See if number has a leading sign character 



8*: 

6«: 
1*: 



CLR 


R2 


CALL 


GETCHR 


CMPB 


RO. #' + 


BEQ 


6$ 


CMPB 


RO, #'- 


BNE 


8* 


INC 


R2 


BR 


6* 


CALL 


PSHCHR 



Assume result should be positive 

Get 1st character of number 

Leading plus sign? 

Br if yes 

Leading minus sign? 

Br if not 

Set flag to negate the value 



; Push the first digit 
Scan the number and store in D. NMBF 



3*: 



MOV 


#D. NMBF, Rl 


MOV 


#8. ,R5 


CALL 


GETCHR 


CMPB 


RO, #'0 


BLO 


2* 


CMPB 


RO, #'9 


BHI 


2* 


CMPB 


RO, #'7 


BLOS 


3* 


MOV 


#10. ,R5 


CMP 


R1,#D. NMBE 


BHIS 


11* 


MOVB 


RO, (Rl) + 


BR 


1* 



Hit end of number 



2*: 



4*: 
i 

i 

5*: 
7*: 



CLRB 


(Rl) 


CMPB 


R0,#'. 


BNE 


4« 


MOV 


#10. ,R5 


BR 


5* 


CALL 


PSHCHR 



Point to number character buffer 

Assume this is an octal value 

Get next character of number 

Is this character a digit? 

Br if not 

Decimal digit? 

Br if not 

Octal digit? 

Br if yes 

This must be a decimal value 

Are me about to overflow the buffer? 

Br if yes 

Store character into buffer 

Loop to get rest of number 



i Put null at end of buffer 

i Decimal point at end of number? 

i Br if not 

j Remember this is a decimal value 



i Save del imi ter 
Convert number string to binary value 



MOV 


#D. NMBF, R3 


CLR 


Rl 


MOVB 


(R3)+, RO 


BEQ 


9* 



; Point to start of buffer 

i Store value in Rl 

i Get next character 

j Br if hit end of number 



i 
f 

c 

I 
f 



i 

i 
I 

( 

< 

i 
< 



I 
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ACRNUM ~- Accrue a number 



58 


005706 


162700 


000060 


59 


005712 


070105 




60 


005714 


060001 




61 


005716 


000771 




62 








63 








64 








65 


005720 


005702 




66 


005722 


001401 




67 


005724 


005401 




68 








69 








70 








71 


005726 


004737 


005756 ' 


72 


005732 


004737 


006022 ' 


73 


005736 


012605 




74 


005740 


012603 




75 


005742 


012602 




76 


005744 


000207 




77 








78 








79 








80 


005746 







SUB 


#'0, RO 


MUL 


R5, Rl 


ADD 


. RO, Rl 


BR 


7* 



i Convert digit to binary value 

i Multiply previous value by 8 or 10. 

J Add in new value 

j Loop to get rest of number 



See if me should negate the valu< 



9$: 



10«: 



TST 


R2 


BEQ 


10* 


NEG 


Rl 


Finished 




CALL 


GETCHR 


CALL 


PSHCHR 


MOV 


<SP>+, R5 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





; Should uje negate the value 

i Br if not 

i Negate the value 



i Get delimiter character in RO 
i But push it back too 



Number overflowed the buffer 
11*: ERR #EM*NTL i Number too long 



i 
f 



f 

4 

< 

i 
I 
( 
C 

i 

t 



I 
I 
{ 
{ 

I 



TSDB UG 
GETCHR 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

« *»* 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



005756 



005756 113700 OOOOOOG 



005764 

005770 005237 OOOOOOG 



005774 120027 000141 

006000 103405 

006002 120027 000172 

006006 101002 

006010 162700 000040 



006014 105037 OOOOOOG 
006020 000207 



006022 110037 OOOOOOG 
006026 000207 
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— Get next character from terminal 

. SBTTL GETCHR — Get next character from terminal 

Get the next character from the terminal. 

Outputs: 
RO = Character gotten 

GETCHR: 

See if PSHCHR was called to save a character 



MOVE 
BNE 



D. SVCH, RO 
9* 



Has a character been pushed? 
Br if yes 



No saved character. 

Get character from terminal. 

. TTYIN 

INC D. PCOL 



» Get character from terminal 
/Advance print column 



Convert lowei — case characters to uppei — case 

; Lower-case a 



9*: 



CMPB 


RO, #141 


BLO 


9* 


CMPB 


RO, #172 


BHI 


9* 


SUB 


#40, RO 


Finished 




CLRB 


D. SVCH 


RETURN 





i Lotuei — case z 

i Convert lower-case to upper-case 

; No saved character 



. SBTTL PSHCHR — Push a character 

Push a character so GETCHR will get it on next call. 

Inputs: 
RO = Character to be pushed. 



PSHCHR: MOVE RO, D. SVCH 
RETURN 



j Save the character for GETCHR 
i Finished 



I 
< 
I 

€ 

< 

1 

€ 

i 

i 

€ 

i 

{ 

I 

I 

t 

t 






I 
C 
f 
C 

i 

I 

( 

i 
I 

i 



TSDBUG ■ 


— TSX-P 


lus debu 


gging mo 


PRTOCT - 

1 
2 
3 


~ Print 


octal value 


4 
5 
6 
7 
8 


006030 


010146 




9 


006032 


010246 




10 


006034 


010346 




11 


006036 


005003 




12 


006040 


010001 




13 


006042 


005000 




14 


006044 


073027 


000001 


15 


006050 


012702 


000006 


16 


006054 


000403 




17 


006056 


005000 




18 


006060 


073027 


000003 


19 


006064 


050003 




20 


006066 


001406 




21 


006070 


062700 


000060 


22 


006074 






23 


006100 


005237 


OOOOOOG 


24 


006104 


077214 




25 


006106 


005703 




26 


006110 


001006 




27 


006112 






28 


006122 


005237 


OOOOOOG 


29 


006126 


012603 




30 


006130 


012602 




31 


006132 


012601 




32 


006134 


000207 
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. SBTTL PRTOCT — Print 
Print an octal value with no 



octal value 
leading zeroes. 



i 


Inpt 


Its: 




i 


RO 


= Value 


to print. 


i 
PRTOCT: 


MOV 


R1,-<SP) 






MOV 


R2. -(SP) 






MOV 


R3, -(SP) 






CLR 


R3 






MOV 


RO, Rl 






CLR 


RO 






ASHC 


#1,R0 






MOV 


#6, R2 






BR 


2* 


1*: 




CLR 


RO 






ASHC 


#3, RO 


2*: 




BIS 


RO, R3 






BEQ 


3* 






ADD 


#'0, RO 






. TTYOUT 








INC 


D. POOL 


3*: 




SOB 


R2. 1* 






TST 


R3 






BNE 


4* 






. TTYOUT 


#'0 






INC 


D. POOL 


4$: 




MOV 


<SP)+, R3 






MOV 


(SP)+, R2 






MOV 


(SP>+, Rl 






RETURN 





; Say non-zero digit not seen yet 
i Get value to print 

..r\_4- ^-4- 1.-4- -—4-— o-^ 

i Print total of 6 digits 

i Get next digit into RO 

Remember if non-zero digit seen 

Br if no non-zero digits seen yet 

Convert to ascii character 

Print the character 

Advance print column 

Loop if more digits to print 

Did we see any non-zero digits? 

Br if yes 

Print one zero if not 

Advance print column 



I 



€ 



c 

t 
t 
I 
c 
< 

i 



i 
t 
I 
I 
I 



f 

t 
< 
i 



I 
t 

€ 
I 

I 



TSDBUG - 


-- TSX-Plus debu 


gging mo 


PRTWRD - 
i 

2 
3 
4 
5 
6 
7 


— Print 


octal word valu 


006136 


010146 




8 


006140 


010246 




9 


006142 


010001 




10 


006144 


005000 




11 


006146 


073027 


000001 


12 


006152 


012702 


000006 


13 


006156 


000403 




14 


006160 


005000 




15 


006162 


073027 


000003 


16 


006166 


062700 


000060 


17 


006172 






IS 


006176 


005237 


0000000 


19 


006202 


077212 




20 


006204 


012602 




21 


006206 


012601 




22 


006210 


000207 




23 








24 








25 








26 








27 








28 








29 








30 








31 


006212 


010146 




32 


006214 


010246 




33 


006216 


010001 




34 


006220 


000301 




35 


006222 


005000 




36 


006224 


073027 


000002 


37 


006230 


012702 


000003 


38 


006234 


000403 




39 


006236 


005000 




40 


006240 


073027 


000003 


41 


006244 


062700 


000060 


42 


006250 






43 


006254 


005237 


OOOOOOG 


44 


006260 


077212 




45 


006262 


012602 




46 


006264 


012601 




47 


006266 


000207 
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. SBTTL PRTWRD — Print octal word value 



Print a 16-bit octal value; 
Inputs: 
RO = Value to be printed. 



PRTWR 


D: MOV 


Rl, -(SP) 




MOV 


R2, -(SP) 




MOV 


RO, Rl 




CLR 


RO 




ASHC 


#1,R0 




MOV 


#6, R2 




BR 


2$ 


1$: 


CLR 


RO 




ASHC 


#3, RO 


2*: 


ADD 

. TTYOUT 


#'0, RO 




INC 


D. PCOL 




SOB 


R2, 1* 




MOV 


(SP)+, R2 




MOV 


(SP)+,R1 




RETURN 





i Get value to print 
i Get 1st bit into RO 

iPrint total of 6 digits 

iGet next digit into RO 

i Convert to ascii character 

i Print the character 

i Advance print column 

i Loop if more digits to print 



. SBTTL PRTBYT — Print octal bqte value 



Print an S-bit octal value. 

Inputs: 
RO = Value to be printed. 



PRTBY 


T: MOV 


R 1 , - ( SP ) 




MOV 


R2, -(SP) 




MOV 


RO, Rl 




SWAB 


Rl 




CLR 


RO 




ASHC 


#2, RO 




MOV 


#3, R2 




BR 


2* 


1*: 


CLR 


RO 




ASHC 


#3, RO 


2*: 


ADD 

. TTYOUT 


#'0, RO 




INC 


D. PCOL 




SOB 


R2, 1* 




MOV 


(SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 





iGet value to be printed 
J Left-justify value in Rl 
; Move 1st 2 bits into RO 

iPrint 3 digits total 

; Get next octal digit to RO 

; Convert to ascii character 

; Print the character 

i Advance print column 

i Loop if more digits to print 



C 
4 
i 
I 
i 
€ 
f 

i 
f 
4 
I 
( 



TSDBUG - 


— TSX-Plus debu 


gging mo 


PRTR50 - 

i 
2 
3 


-- Print 


a RAD50 


value 








4 








5 








6 








7 








8 


006270 


010146 




9 


006272 


010246 




10 








11 








12 








13 


006274 


012702 


000003 


14 


006300 


005046 




15 


006302 


010001 




16 


006304 


005000 




17 


006306 


071027 


000050 


18 


006312 


116146 


000220 ' 


19 


006316 


010001 




20 


006320 


077207 




21 








22 








23 








24 


006322 


012600 




25 


006324 


001405 




26 


006326 






27 


006332 


005237 


OOOOOOG 


28 


006336 


000771 




29 








30 








31 








32 


006340 


012602 




33 


006342 


012601 




34 


006344 


000207 





Wednesday 18-Jan-89 15:24 Page 34 

. SBTTL PRTR50 — Print a RAD50 value 

PRTR50 is called to print a RAD50 (radix 50) value. 

Inputs: 
RO = Value to be printed. 



PRTR50: MOV 
MOV 



R1,-(SP) 
R2, -(SP) 



MOV 


#3>R2 


CLR 


-(SP) 


MOV 


RO, Rl 


CLR 


RO 


DIV 


#50, RO 


MOVE 


R50CHR 


MOV 


RO, Rl 


SOB 


R2, 1$ 



Convert value to ascii character string and stack the characters 

i Set # chars to convert 
i Put null on stack to signal end 
j Get value to be converted 
1*: CLR RO ; Clear high-order for divide 

i Divide RO-Ri by 50 
R50CHR(R1 ), -(SP)i Convert remainder to ascii and stack it 

; Get quotient 
i Loop if more to convert 

Finished conversion. Print the result. 

2*: MOV (SP)+, RO ; Get char to print 

; Br if hit end of string 
; Print the character 
.i Advance print column 
; Loop to print more 



3*: 



MOV 


(SP)+, RO 


BEQ 


3* 


. TTYOUT 




INC 


D. PCOL 


BR 


2* 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





I 
I 

€ 

i 

< 
I 

I 

< 
i 
I 
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I 
I 
f 

i 
i 
i 

i 

^ 

i 
{ 



3 








4 








5 








6 


006346 






7 


006356 






8 


006364 


005037 


0000000 


9 


006370 


013706 


OOOOOOG 


10 


006374 


000137 


001510' 


11 








12 








13 








14 








15 








16 








17 








IS 








19 








20 


006400 


112200 




21 


006402 


001405 




22 


006404 






23 


006410 


005237 


OOOOOOG 


24 


006414 


000771 




25 


006416 


005202 




26 


006420 


042702 


000001 


27 


006424 


000202 
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. SBTTL ERRPRT — Print an error message 



Print the error message whose address is in Rl and then go and 
get a new command. 



ERRPRT: TPRINT #CRLF 

TPRINT Rl 

CLR D. POOL 

MOV D. SPSV, SP 

JMP NEWCMD 



i Go to new 1 ine 
; Print error message 
i Say print column = 
iReset stack pointer 
; Go get a new command 



SBTTL LSTTXT — Print text string 



LSTTXT is called by use of the PRINT macro. It prints a text 
string on the terminal without carriage-return, line-feed. 

Inputs: 
R2 = Address of strinq in ASCII form that follows call, 



LSTTXT: MOVE <R2)+, RO 

BEQ 2« 

. TTYOUT 

INC D. PCOL 

BR LSTTXT 

2*: INC R2 

BIC #1,R2 

RTS R2 



>Get next char from text string 

i Br if hit end of string 

j Print the character 

j Advance print column 

; Loop till end of string hit 

i Bound up to even byte address 

;Return following string 



4 

4 



t 
€ 

I 

I 

I 

i 
i 



i 
{ 
4 
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Set address of open cell 



m 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

1 / 



. SBTTL SETLOC — Set address of open cell 

SETLOC is called to set the address of the currently open cell. 

Inputs: 
D. VALl = Address of cell to open. 
D. VIFL = Mode of address <+i=Cell in user's job> -l=Internal cell) 

Outputs: 
D. LOC = Address of open cell. 
D. LOOM = Mode of cell <+l / -1) 



006426 113700 0000000 

006432 001405 

006434 1 1 0037 OOOOOOG 

006440 013737 OOOOOOG OOOOOOG 

006446 000207 



SETLOC; MOVE 
BEQ 
MOVB 
MOV 



u. vj.riL.> n\j 

9* 

RO. D. LOCM 

D. VAL1,D. LOC 



i Get mode of address 
i Br if no address specified 
i Set mode of current cell 
iSet address of current cell 



9*: 



RETURN 



c 
f 

i 
i 

I 

€ 

i 
i 
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14 
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16 
17 
IS 
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20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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45 
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51 
52 



— TSX-Plus debugging mo MACRO V05. 05 

— Store value into open cell 
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006450 
006452 



006454 
006460 



006462 
006466 



006470 
006474 



006476 
006500 
006504 
006512 
006514 
006516 
006520 
006522 



006524 
006530 
006534 
006540 
006546 
006550 
006552 
006554 
006556 
006564 
006566 



54 006574 

55 006576 

56 006602 

57 006604 



010146 
010246 



105737 
001512 



105737 
100457 



105737 
001013 



010046 
013700 
032737 
001402 
006610 
000473 
106610 
000471 



042700 
013702 
042702 
032737 
001402 
006512 
000401 
106512 
032737 
001004 
042716 
050016 
000404 
042716 
000300 
050016 



. SBTTL STRVAL — Store value into open cell 

STRVAL is called to store a value into the currently open cell. 

Inputs: 
RO = Value to store. 
D. LOC = Address where to store value. 

D. LOOM = +l=Store into user's area/ -l=Store into internal register. 
D. BYTM = 0=Word mode store. l=Byte mode store. 



STRVAL: MOV 
MOV 



R1,-<SP) 
R2, -<SP) 



Make sure a cell is open 



0000000 



TSTB 
BEO 



D. LOOM 
9* 



; Is a cell open now? 
; Br if not 



Determine if we are storing into user's job or internal cell 



OOOOOOG 



TSTB 
BMI 



D. LOOM 
1« 



Store into user's job 



OOOOOOG 



TSTB 
BNE 



D. BYTM 
2« 



Store into word 



OOOOOOG 
OOOOOOG OOOOOOG 



4*: 



MOV 


RO, -<SP) 


MOV 


D. LOC, RO 


BIT 


#D*ISPC, D. FLAG 


BEQ 


4* 


MTPI 


(RO) 


BR 


9* 


MTPD 


(RO) 


BR 


9« 



; Internal or user job?" 
; Br if internal cell 



iByte or word mode? 
i Br if byte mode 



J Put value on stack 

iGet address where we should store 

{Should we use I-spaceT' 

; Br if not (D-space is default) 

i Store into program I-space 

i Store into user's area 



I 
< 

€ 
I 

i 



store into byte 



177400 

OOOOOOG 

000001 

OOOOOOG OOOOOOG 



2*: 



000001 OOOOOOG 
000377 

177400 



7«: 
8*: 



3*: 



BIC 


#-^C377, RO 


MOV 


D. LOC, R2 


BIC 


#1,R2 


BIT 


#D*ISPC,D. FLAG 


BE(]| 


7* 


MFPI 


(R2) 


BR 


8* 


MFPD 


(R2) 


BIT 


#1,D. LOC 


BNE 


3* 


BIC 


#377, (SP) 


BIS 


RO, (SP) 


BR 


5* 


BIC 


#177400, (SP) 


SWAB 


RO 


BIS 


RO, (SP) 



Clear high-order byte of value being stored 

Get address where we are to store 

Force address to be even 

I-space reference? 

Br if not 

Get current I-space value 

And continue 

Get current contents of word (D-space) 

Even or odd byte? 

Br if odd byte 

Clear low-order byte of old value 

Put in new low-order byte 

Go set into user space 

Clear high-order byte 

Get new value to high— order byte 

Store new high-order byte 



i 
i 

€ 

f 
€ 
i 
I 
< 
I 
i 
i 
i 
i 

i 
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58 006606 
ST \JuaaxH 

60 006616 

61 006620 

62 006622 

63 006624 
64 

65 
66 

67 006626 

68 006632 
69 

70 
71 

72 006634 

73 006640 
74 

75 
76 

77 006642 

78 006646 

79 006652 
SO 006656 

81 006664 

82 006666 

83 006672 

84 006674 

85 006676 

86 006702 

87 006704 
88 

89 
90 

91 006706 

92 006710 

93 006712 



032737 OOOOOOG OOOOOOG 5*; 

UUi4U«£ 

006612 

000432 

106612 6*: 

000430 



105737 
001003 



010077 
000422 



042700 
013702 
042702 
032737 
001344 
042712 
050012 
000404 
042712 
000300 
050012 



012602 
012601 
000207 



OOOOOOG 



OOOOOOG 



177400 
OOOOOOG 
000001 
OOOOOl 

000377 



177400 



OOOOOOG 



BIT 


#D*ISPC, D. FLAG 


BE<3 


6* 


MTPI 


<R2) 


BR 


9* 


MTPD 


<R2) 


BR 


9* 



Store into internal register 



1*: 



TSTB 


D. BYTM 


BNE 


12$ 


Store into 


word 


MOV 


RO, @D. LOC 


BR 


9* 



Store into byte 



12$ 



13* 



9*: 



Store into I-space7' 

Br if not (D— space is default) 

Store into user I-space 

Store into user D-space 



Byte or luord mode? 
Br if byte mode 



Store into internal ceil 



BIC 


#■■"0377, RO 




MOV 


D. LOC, R2 




BIC 


#1, R2 




BIT 


#1,D. LOC 




BNE 


3* 




BIC 


#377, (R2) 




BIS 


RO, (R2> 




BR 


9* 




BIC 


#177400, <R2) 




SWAB 


RO 




BIS 


RO, <R2) 




Finished 






MOV 


(SP)+, R2 




MOV 


<SP)+,R1 




RETURN 







Clear high-order byte of value being stored 

Get address where we are to store 

Force address to be even 

Even or odd byte? 

Br if odd byte 

Clear low-order byte of old value 

Put in new low-order byte 

Clear high-order byte 

Get new value to high-order byte 

Store new high-order byte 



i 



i 
I 
I 
< 
I 
I 
i 
t 
4 
I 
C 
I 
i 
( 

< 
I 



f 

I 
< 



{ 
I 
t 

€ 
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006716 
006722 



006724 
006730 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 

27 006732 

28 006736 

29 006744 

30 006746 

31 006750 

32 006752 

33 006754 

34 006756 
35 

36 
37 

38 006760 

39 006764 

40 006770 

41 006776 

42 007000 

43 007002 

44 007004 

45 007006 

46 007010 

47 007016 

48 007020 

49 007022 

50 007026 
51 

52 
53 

54 007030 

55 007034 
56 

57 



. SBTTL GETVAL — Get value from current cell 

GETVAL is called to get the value from the currently open ceil. 

Inputs: 
D. LOC = Address of cell from which value is to be fetched. 
D. LOCM = +l=fetch from user's areai -l=Fetch from internal register. 
D. BYTM = 0=Word mode, l=Byte mode 

Outputs: 
RO = Value obtained 

rVAL; MOV R2, -(SP) 

Determine if me are fetching from user's job or internal cell 



105737 
100442 



105737 
001013 



013700 
032737 
001402 
006510 
000401 
106510 
012600 
000446 



013702 
042702 
032737 
001402 
006512 
000401 
106512 
012600 
032737 
001401 
000300 
042700 
000422 



105737 
001003 



OOOOOOG 



TSTB 
BMI 



D. LOCM 
1* 



Fetch from user's job 



OOOOOOG 



TSTB 
BNE 



D. BYTM 
2* 



Fetch from word 



OOOOOOG 
OOOOOOG 



OOOOOOG 



4*: 
5*: 



MOV 


D. LOC* RO 


BIT 


#D*ISPC,D. FLAG 


BEQ 


4* 


MFPI 


(RO) 


BR 


5« 


MFPD 


<R0) 


MOV 


(SP)+, RO 


BR 


9* 



Fetch from byte 



OOOOOOG 

000001 

OOOOOOG 



2*: 



OOOOOOG 



000001 OOOOOOG 



177400 



6«: 
7*: 



3«: 



MOV 


D. LOC, R2 


BIG 


#1,R2 


BIT 


#D*ISPC, D. FLAG 


BEQ 


6* 


MFPI 


<R2) 


BR 


7* 


MFPD 


(R2) 


MOV 


<SP)+, RO 


BIT 


#1,D. LOC 


BEQ 


3* 


SWAB 


RO 


BIC 


#177400, RO 


BR 


9* 



Fetch from internal register 



OOOOOOG 



1*: 



TSTB 
BNE 



D. BYTM 
12$ 



; Internal or user jobv 
i Br if internal cell 



; Byte or word mode? 
; Br if byte mode 



j Get address of value wanted 

; Should we use I-spaceT' 

i Br if not <D-space default) 

; Get value from user I-space 

i And continue 

j Get value from user D-space 

i Return in RO 



Get address of word 

Force address to be even 

Should we use I-space 

Br if not (D-space default) 

Get current value from I-space 

And continue 

Get current value from D-space 

Get word value to RO 

Even or odd byte? 

Br if low-order byte wanted 

Swap bytes if high-order byte wanted 

Clear high-order byte 



Byte or word mode? 
Br if byte mode 



I 

i 
I 
i 
i 



i 
( 

€ 

< 



I 
« 

4 



Fetch from word 



M 



i 

€ 
t 

i 
i 
i 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 

-Tr\ 
/ \J 

71 
72 
73 
74 
75 



U\J/\Jx30 

007042 



007044 
007050 
007054 
007056 
007064 
007066 

\J\j/\J/ W 



017700 
000414 



013702 
042702 
011200 
032737 
001401 
000300 



OOOOOOG 
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i Get the 



007074 012602 
007076 000207 



OOOOOOG 
000001 

000001 OOOOOOG 



12$ 



3$: 



9$: 



MOV 


@D. LOC, RO 


BR 


9* 


Fetch from b 


y te 


MOV 


D. LOC, R2 


BIC 


#liR2 


MOV 


<R2),R0 


BIT 


#1, D. LOC 


BEQ 


13* 


SWAB 


RO 


BIC 


#177400, R 


Finished 




MOV 


(3F)+, R2 


RETURN 





i 1 Ui 



; Get address where ue are to fetch 

; Force address to be even 

i Get the word value 

; Even or odd byte? 

; Br if even byte wanted 

i Swap high-order byte to low-order 



i 
I 

i 
i 



f 

I 
f 



I 
t 



!• 



€ 

€ 



I* 
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SBTTL SHOLOC — Di&play current address 



4 








5 








6 








7 








8 








9 








10 








11 


007100 


010146 




12 


007102 


010246 




13 


007104 


010346 




14 


007106 


010446 




15 








16 








17 








IS 


007110 


105737 


OOOOOOG 


19 


007114 


002405 




20 








21 








22 








23 


007116 


013700 


0000000 


24 


007122 


004737 


007276 ' 


25 


007126 


O00456 




26 








27 








28 








29 


007130 


013700 


OOOOOOG 


30 


007134 


012701 


000402 ' 


31 


007140 


012702 


177777 


32 


007144 


005003 




33 


007146 


020011 




34 


007150 


103406 




35 


007152 


010004 




36 


007154 


161104 




37 


007156 


020402 




38 


007160 


101002 




39 


007162 


010402 




40 


007164 


010103 




41 


007166 


062701 


000002 


42 


007172 


020127 


000434 ' 


43 


007176 


103763 




44 








45 








46 








47 


007200 


162703 


000402 ' 


48 


007204 


006203 




49 


007206 






50 


007216 


005237 


OOOOOOG 


51 


007222 


116300 


000364 ' 


52 


007226 






53 


007232 


005337 


OOOOOOG 


54 








55 








56 








57 


007236 


005702 





Display address of currently open cell. 

The address may be either in the user's program space 

or may be the address of an internal register <*x). 



Inputs: 
D. LOC = Address to be displayed 
D. LOOM = Mode of address < + l==>In user's program. 



•l=->Internal cell) 



SHOLOC: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3* — ( 3P ) 
R4, -(SP) 



Determine if this is an internal or external cell 



TSTB 
BLT 



D. LOOM 
1* 



> Internal or external address? 
; Br if internal address 



Display address of ceil in user's program 



MOV 


D. LOC, RO 


CALL 


LSTADR 


BR 


9* 



; Get address to be displayed 
/Display relative to relocation base 



Display name of internal cell 



1*: MOV D. LOC. RO 

MOV #INTADR.R1 

MOV #-l.R2 

CLR R3 

2*: CMP RO, (Rl) 

BLO 3* 

MOV RO, R4 

SUB <R1),R4 

CMP R4, R2 

BHI 3* 

MOV R4, R2 

MOV R1,R3 

3«: ADD #2, Rl 

CMP Rl,# INTEND 

BLO 2* 

f 

i Display register name 
i 

SUB #INTADR, R3 

ASR R3 

. TTYOUT »'« 

INC D. POOL 

MOVB INTCHR(R3),R0 

. TTYOUT 

INC D. PCOL 

Display offset from register 

TST R2 



iOet address of internal cell 

iPoint to table of addresses of cells 

; Init for search 

Is address below base of this cell? 

Br if yes 

Get addre&s of interest 

Determine distance from cell base addr 

Is this the closest we've seen so far? 

Br if not 

Remember offset from nearest cell 

Remember address of nearest cell 

Point to address of next cell 

Checked all cells? 

Loop if not 



iGet offset into address table 

{Convert to byte table index 

i Print "*" 

; Advance print column 

i Get name of internal register 

f Print register name 

! Advance "rint column 



iAny offset from base of cell? 



c 
I 
I 
t 
i 
i 
i 
i 
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007240 
007242 
007252 
007256 
007260 



007264 
007266 
007270 
007272 



001411 

005237 
010200 
004737 



012604 
012603 
012602 
012601 



BEQ 



9* 



OOOOOOG 



006030 



9«: 



. TTYOUT 


#' + 


INC 


D. PCOL 


MOV 


R2, RO 


CALL 


PRTOCT 


Finished 




MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETliRN 





i Br if not 

i Print "+" 

; Advance print column 

i Get offset value 

; Print octal value for offset 



I 
« 
f 

i 
I 

i 

I 
f 

€ 
I 

i 

4 
I 
C 



c 
i 
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t 
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t 

I 
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— Display address in user's program 



SBTTL LSTADR 



Display address in user's program 



007276 



007276 032737 0000000 OOOOOOG 
007304 001003 



007306 004737 007322 ' 
007312 000402 



007314 004737 006030' 



007320 000207 



LSTADR is called to display an address in the user's program. 
LSTADR functions the same as SHOADR except that LSTADR checks the 
DP*LAA flag in the *F format register. If the DP$LAA flag is cleared 
the address is displayed in relative form; if it is set* it is displayed 
in absolute form. 

Inputs: 
RO = Address to be displayed. 

LSTADR : 

See if DP*LAA is set in *F register 

BIT #DP*LAA» D. PFMT ; Absolute addresses wanted? 
BNE 1 * > Br i f y e B 



Display address with relocation base 



CALL 
BR 



SHOADR 

9* 



Display absolute address 
1*: CALL PRTOCT 

Fini shed 
9$: RETURN 



Display address with relocation base 



Display absolute address 



I 
I 

r 

i 
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-- Display address in user's program 



007322 010146 
007324 010246 
007326 010346 



007332 010004 

007334 004737 007412' 

007340 103414 



007342 166304 0000000 

007346 010300 

007350 006200 

007352 004737 006030 ' 

007356 

007366 005237 0000000 



007372 010400 

007374 004737 006030 ' 



007400 012604 

007402 012603 

007404 012602 

007406 012601 

007410 000207 



SBTTL SHOADR 



Display address in user's program 



SHOADR is called to display an address in the user's program. 

A check is made to determine uhich relocation register the address 

is relative to and if any* the address is printed as "r* o". 

Inputs; 
RO = Address to display. 



SHOADR : MOV 
MOV 
MOV 
MOV 



Rl, -(SP) 
R2, -(SP) 
R3i -(SP) 
R4, -(SP) 



Determine if address is relative to a relocation register 



MOV 


RO, R4 


CALL 


RELADR 


BCS 


4* 



i Save original address 

i Determine if addr is relative to reloc regn 

i Br if not 



Print relocation register number 



SUB 


D. RLBS(R3),R4 


MOV 


R3*R0 


ASR 


RO 


CALL 


PRTOCT 


. TTYOUT 


#54 


INC 


D. PCOL 



Print offset within region 



4*: 



MOV 


R4, RO 


CALL 


PRTOCT 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





iCompute offset within the region 

;Get register index 

{Convert index to number 

i Print register number 

J Print ", " 

i Advance print column 



; Get offset within region 
; Print the value 



f 
I 



I 

i 



€ 

< 
i 
t 
i 

< 

{ 



i 

4 
€ 
I 
I 



i 
i 
r 

I 
I 
i 



i 



TSDBUG - 


— TSX-Plus debt 


igging mo 


RELADR - 

1 
2 
3 


— Determine if 


address 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


007412 


010146 




15 


007414 


010246 




16 


007416 


010446 




17 








18 








19 








20 


007420 


005001 




21 


007422 


012702 


177777 


22 


007426 


010203 




23 


007430 


005761 


OOOOOOG 


24 


007434 


001412 




25 


007436 


020061 


0000000 


26 


007442 


103407 




27 


007444 


010004 




28 


007446 


166104 


OOOOOOG 


29 


007452 


020402 




30 


007454 


101002 




31 


007456 


010402 




32 


007460 


010103 




33 


007462 


062701 


000002 


34 


007466 


020127 


000016 


35 


007472 


101756 




36 








37 








38 








39 


007474 


005703 




40 


007476 


002002 




41 


007500 


000261 




42 


007502 


000401 




43 


007504 


000241 




44 








45 








46 








47 


007506 


012604 




48 


007510 


012602 




49 


007512 


012601 




50 


007514 


000207 
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is in relocation region 

. SBTTL RELADR — Determine if address is in relocation region 

RELADR is called to determine if an address is within a relocation 
region. 

Inputs: 
RO = Address to be checked. 

Outputs: 
C-flag cleared ==> Address is within a relocation region. 
C-flag set ==> Address is not within a relocation region. 
R3 = Index to relocation reaion to be used with address. 



RELADR: MOV 
MOV 
MOV 



R1,-<SP) 
R2, -(SP) 
R4, -<SP) 



Search for relocation region defined below the address 



?*: 



3«: 



CLR 


Rl 


MOV 


#-l,R2 


MOV 


R2, R3 


TST 


D. RLBS(Rl) 


BEG 


3* 


CMP 


RO, D. RLBS(Rl) 


BLO 


3* 


MOV 


RO, R4 


SUB 


D. RLBS(R1),R4 


CMP 


R4, R2 


BHI 


3* 


MOV 


R4>R2 


MOV 


R1,R3 


ADD 


#2, Rl 


CMP 


Rl,#14. 


BLOS 


2* 



Init relocation register index 

Init closest offset value 

Say no relocation base found yet 

Is this relocation register in use? 

Br if not 

Is address above this relocation base? 

Br if not 

Get address of interest 

Calculate offset within region 

Is this the closest one so far? 

Br if not 

Rember smallest offset 

Remember relocation register index 

Advance relocation register index 

Checked all relocation registers? 

Br if not 



See if we found a relocation region 



5*: 



9*: 



TST 


R3 


BGE 


5« 


SEC 




BR 


9* 


CLC 




Finished 




MOV 


<SP)+, R4 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





;Did we find a relocation region 

; Br if yes 

; Say no region found 

; Say a region was found 
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TSDBUG - 


-- TSX-Plus debt 


igging (no 


DOPRT - 

1 
2 
3 


— Print 


a text 


string 








4 
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007516 


010146 




10 


007520 


010246 
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13 








14 


007522 


010002 




15 


007524 


113701 


OOOOOOG 
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IS 








19 


007530 


1 1 2200 




20 


007532 


001411 




21 


007534 


120027 


000200 


22 


007540 


001422 




23 


007542 






24 


007550 


005237 


OOOOOOG 


25 


007554 


000765 




26 








27 








28 








29 


007556 


012700 


000015 


30 


007562 






31 


007570 


012700 


000012 


32 


007574 






33 


007602 


005037 


OOOOOOG 


34 








35 








36 








37 


007606 


012602 




38 


007610 


012601 




39 


007612 


000207 
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SBTTL DOPRT 



Print a text string 



DOPRT is called to print a text string. 

It directly calls routines in TSTTY to print each character. 

Inputs: 

RO = Pointer to asciz string. 



DOPRT: 



MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 



Set up pointer to start of string 



MOV 
MOVE 



RO, R2 
CORUSR, Rl 



; Get pointer to start of string 
; Get current job index number 



Get each char out of the string and print it 



1*: 



MOVE 


(R2)+, RO 


BEQ 


2* 


CMPB 


RO, #200 


BEG 


9* 


OCALL 


PUTCHR 


INC 


D. POOL 


BR 


1* 



Get next char from string 

Br if hit null at end 

Is string terminated with a 200? 

Br if yes 

Print the character 

Advance print column 

Loop to print rest of string 



2*: 



Print Carriage-return Line-feed at end of string 



i Get carriage return 

; Print it 

jGet line feed 

i Print it 

J Say lue are back to column 1 



9*: 



MOV 


#CR, RO 


OCALL 


PUTCHR 


MOV 


#LF, RO 


OCALL 


PUTCHR 


CLR 


D. PCOL 


Finished 




MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 
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Place terminal in debug mode 

. SBTTL DBGON — Place terminal in debug mode 

DBGON is called to place the terminal in debug mode. 



007614 012700 000002' 
007620 104375 
007622 000207 



00/6ii;4 01is:700 000004 
007630 104375 
007632 000207 



007634 000241 
007636 000207 



DBGON; MOV #ONEMT, RO 
EMT 375 
RETURN 

gg-f-jL DBGOFF — Turn off terminal debug mode 
DBGOFF is called to take the terminal out of debug mode 



DBGOFF: Muv #Ol-t-tM! • RO 

EMT 375 
RETURN 

. SBTTL CHKADR 



Determine if address is valid 



CHKADR is called to determine if an address is within the 
range of the user's program space. 

Inputs: 
RO = Address to be checked. 

Outputs: 
C~flag cleared ==> address is ok 
C-flag set -=> address is invalid 

CHKADR: CLC 

RETURN 
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-- Decode instruction into symbolic form 
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30 
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. SBTTL DECODE — Decode instruction into symbolic form 

DECODE is called to decode an instruction word into its symbolic form. 
The symbolic form of the instruction is displayed on the console. 

Inputs: 
Rl == Address of instruction to be decoded. 

Outputs: 
D. ILEN = Length (in bytes) of decoded instruction and operands. 



007640 010146 

007644 010346 

007646 010446 

007650 010546 



007652 012737 000002 0000000 



007660 

007672 005037 OOOOOOG 



007676 006521 
007700 012602 



007702 012704 012114' 

007706 010203 

007710 046403 000000 

007714 020364 000002 

007720 001411 

007722 116400 000005 

007726 005200 

007730 042700 000001 

007734 062700 000006 

007740 060004 

007742 000761 



007744 116403 000005 

007750 060337 OOOOOOG 

007754 010405 

007756 062705 000006 

007762 112500 

007764 

007770 077304 



DECODE: 


MOV 


R 1 1 - ( SP ) 




MOV 


R2, -<3P) 




MOV 


R3, -(SP) 




MOV 


R4, -<SP) 




MOV 


R5, -<SP) 



Initialize instruction length to 2 bytes 

MOV #2' D. ILEN J Say base instruction length 
Initialize column counter for decoded instruction display 



2 bytes 



PRINT 
CLR 



'■■. J' 

D. PCOL 



Fetch the instruction word 



MFPI 
MOV 



(Rl) + 
<SP)+, R2 



; First print a few spaces 
; Say we are at column 1 now 



; Get the instruction from user's space 
; Get instruction off of stack 



1*: 



5*: 



6*: 



Search the instruction list for this instruction 

jPoint to base of instruction decode table 

i Get instruction to be decoded 

i Clear operand fields in instruction 

; Is this the instruction? 

i Br if found the instruction 

; Get length of ascii name string 

; Bound up to word boundary 

iAdd size of base portion of block 

; Point to next instruction decode block 

i Continue searching for the instruction 

We have found the instruction in the instruction decode table. 
R4 = Address of instruction decode block. 
Display the symbolic name of the instruction. 

J Get length of instruction mnemonic 

i Advance column counter 

j Point to the mnemonic ascii string 



MOV 


#INSBAS. R4 


MOV 


R2, R3 


BIC 


IB*MSK<R4),R3 


CMP 


R3, IB*VAL<R4) 


BEQ 


5* 


MOVB 


IB*LEN<R4>>R0 


INC 


RO 


BIC 


#1,R0 


ADD 


#IB*NAM, RO 


ADD 


RO, R4 


BR 


1* 



MOVB 


IB*LEN<R4),R3 


ADD 


R3, D. PCOL 


MOV 


R4, R5 


ADD 


SIBfNAM, R5 


MOVB 


(R5>+, RO 


. TTYOUT 




SOB 


R3, 6« 



i Get next char of mnemonic 

j Print the character 

i Loop if more chars to print 
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— Decode instruction into sqmbolic form 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
/\j 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 



007772 016400 000000 
QOnit, 005100 
010000 040002 



010006 004770 014330' 



010012 012605 

010014 012604 

010016 012603 

010020 012602 

010022 012601 

010024 000207 



Noui mask out the instruction code from the instruction word leaving 
only the operand fields. 



MOV IB*MSK<R4),R0 
COM RO 
BIC RO, R2 



; Get mask value 

; Complement it to leave the operand fields 

;Mask out all but the operand fields 



Now call appropriate routine to display the operand values for 
this instruction. 

Rl = Address of word past instruction. 

R2 = Operand field values (instruction word with instruction code masked) 



riuvjB 
CALL 

Finished 

MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



IB* ( YP (R4> J RO 
@TYPVEC<RO) 



<SP)+, R5 
<SP)+, R4 
<SP)+, R3 
<SP)+, R2 
(SP)+, Rl 



i \iex, T;ne operano "type cooe for tnis inst 
iCall appropriate operand display routine 
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— Display instruction operands 

. SBTTL ODCxxx — Display instruction operands 
; TYPl — Instruction has no operands. 

i 

010026 000207 ODCl: RETURN 



010030 



010030 012700 000010 
010034 004737 012064' 



010040 010200 

O 1 0042 004737 1 1 000 



010046 000207 



010050 



010050 012700 000010 
010054 004737 012064' 



010060 010200 

010062 004737 011472' 

010066 000207 



} TYP2 — Operand has a single general operand. 

i 

ODC 2: 

> 

; Tab over to operand field 



MOV 


#COLOPN, RO 


CALL 

• 


ODC TAB 


; Display the 


operand 


MOV 


R2. RO 


CALL 


ODC GEN 


i Finished 
> 





/Get operand column number 
> Tab over to operand field 



; Get the operand code 
i Display general operand 



RETURN 



. TYP3 — Single register operand. 

i 

0DC3: 

J Tab over to the operand field 



MOV 


#COLOPN, RO 


CALL 


ODCTAB 


; Display the 


register 


MOV 


R2, RO 


CALL 


ODCREG 


RETURN 





i Get operand column number 
; Tab over to operand field 



; Get the register number 
;Display the register number 
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TSDBUG - 


— TSX-P 


lus debu 


gging mo 


ODCxxx - 


-- Displ 


ay instruction o 
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010070 
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7 








8 


010070 


012700 


000010 


9 


010074 


004737 


012064' 


10 








11 








12 








13 


010100 


010200 




14 


010102 


004737 


006030 ' 


15 
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17 








18 


010106 


000207 




19 
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23 


010110 
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27 


010110 


032702 


000001 


28 


010114 


001404 




29 


010116 






30 


010126 


032702 


000002 


31 


010132 


001404 




32 


010134 






33 


010144 


032702 


000004 


34 


010150 


001404 




35 


010152 






36 


010162 


032702 


000010 


37 


010166 


001404 




38 


010170 






39 
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010200 


005237 


0000000 


43 


010204 


000207 





; TYP4 — 4-bit absolute numeric operand 
0DC4: 

i 

i Tab over to the operand field 



MOV #COLOPN, RO 

CALL ODCTAB 

Display the value 

MOV R2j RO 

CALL PRTDCT 

Finished 

RETURN 



i Get operand column number 
J Tab over to operand field 



j wet vaxuB to oispiay 
i Print the value 



; TYP5 — Condition code modification instruction 

i 

0DC5: 

i 

i Determine which conditio?! code is affected 



BIT #1,R2 
BEO 1* 
. TTYOUT #'C 

1*: BIT #2, R2 
BEQ 2« 
. TTYOUT #'V 

2*: BIT #4, R2 
BEQ 3$ 
. TTYOUT #'Z 

3*: BIT #10, R2 
BEQ 4« 
. TTYOUT #'N 



iC-flag? 
; Br if not 

i V-flag? 
; Br if not 

i Z-flag? 
; Br if not 

i N-f lag? 
i Br if not 



Finished 



4*: 



INC D. PCOL 
RETURN 



j Advance column number 
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ODCxxx — Display instruction operands 



i 

i 

i 
I 
i 
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010206 
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8 


010206 


012700 


000010 


9 


010212 


004737 


012064' 


10 








11 








12 








13 


010216 


010200 




14 


010220 


042700 


177400 


15 


010224 


032700 


000200 


16 


010230 


001402 




17 


010232 


052700 


177400 


IS 


010236 


006300 




19 


010240 


060100 




20 


010242 


004737 


011720' 


21 








22 








23 








24 


010246 


000207 
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29 


010250 
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32 








33 


010250 


012700 


000010 


34 


010254 


004737 


012064' 


35 
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37 








38 


010260 


010200 




39 


010262 


072027 


177772 


40 


010266 


004737 


011472' 


41 


010272 






42 


010302 


005237 


OOOOOOG 


43 








44 








45 








46 


010306 


010200 




47 


010310 


004737 


011000' 


48 
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51 


010314 


000207 





Branch offset operand 



0DC6: 



Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 

Display the branch target 



1$: 



MOV 


R2, RO 


BIC 


#-^C377> RO 


BIT 


#200, RO 


BEQ 


1* 


BIS 


#177400, RO 


ASL 


RO 


ADD 


R1,R0 


CALL 


DDCADR 


Finished 




RETURN 





/Get operand column number 
; Tab over to operand field 



; Get instruction word 

; Leave only branch offset 

J Is offset negative? 

} Br if not 

iSign extend the offset 

/Convert word offset to byte offset 

/Add current PC address 

/Display the address 



TYP7 — Register and general destination. 
0DC7: 

Tab over to the operand field 



MOV #C0L0PN/ RO 
CALL ODCTAB 

Display the register 

MOV R2/ RO 
ASH #-6, RO 
CALL ODCREG 
. TTYOUT #COMMA 
INC D. PCOL 



; Get operand column number 
/Tab over to operand field 



/Get instruction word 

/Right justify the register value 

/Display the register name 

; Display "/ " 

J Inc column counter 



Display the destination address 



MOV 


R2/R0 


CALL 


ODCGEN 


Finished 




RETURN 





/Get the destination address descriptor 
/Display the address 
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Display instruction operands 



010316 



010316 
010322 



010330 
010334 
010344 



010350 
010352 
010356 



012700 000010 
004737 012064 



WJlUiSOu 

004737 011000' 
005237 0000000 



010200 

072027 177772 

004737 011472' 



010362 000207 



i TYPS — Register destination and general source operand (sS/R) 
ODC 8: 



* 

i Tab over to 

• 


the operand 


* 

MOV 


#COLOPN, RO 


CALL 


ODC TAB 


i Display the 


source item 


* 

MOV 


R2, RO 


CALL 


ODCOEN 


. TTYOUT 


#COMMA 


INC 


D. POOL 



i Get operand column number 
i Tab over to operand field 



i weT -cne source operana code 

iDisplay it 

i Display ", " 

{Advance column counter 



Display the register destination 



MOV 


R2, RO 


ASH 


#-6, RO 


CALL 


ODC REG 


Finished 




RETURN 





; Get the register number 
/Right justify 
/Display the register 



I 
I 



4 

i 

« 
f 
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f 
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f 
( 
I 

i 
f 



1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

< rj 

J, V) 

14 
15 
16 

J. / 

IS 

19 
20 
21 

22 
23 
24 

25 



010364 



010364 
010370 



\/ A WvJ^ -T 

010376 
010402 
010406 



010416 
010420 



012700 
004737 



SJ J. N^C WV/ 

072027 
004737 



000010 
012064 



177772 
011000' 



010200 
004737 



011000' 



010424 000207 



TYP9 — • Tuiu general Hperaridi> 
ODC 9: 

Tab over to the operand field 



MOV #COLOPN> RO 
CALL ODCTAB 

Display the source operand 

ASH #-6> RO 
CALL ODCGEN 
. TTYOUT #COMMA 



i Get operand column number 
i Tab over to operand field 



iRight justify the source item 
'Display source item 
; Print a comma 



Display the destination operand 



MOV 
CALL 

Fini shed 

RETURN 



R2, RO 
ODCGEN 



i Get destination item code 
^Display destination item 



i 

i 
€ 
i 

« 
i 
I 
I 
< 
I 
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c 

'I 

€ 

€ 



3 








4 


010426 






5 








6 








7 








8 


010426 


012700 


000010 


9 


010432 


004737 


012064' 


10 








11 








12 








13 


010436 


010200 




14 


010440 


072027 


177772 


15 


010444 


004737 


011472' 


16 


010450 






17 


010460 


005237 


OOOOOOG 


18 








19 








20 








21 


010464 


042702 


177700 


22 


010470 


010100 




23 


010472 


006302 




24 


010474 


160200 




25 


010476 


004737 


011720' 


26 








27 








28 








29 


010502 


000207 





TYPIO — SOB instruction 
ODCIO: 

Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 

Display the register number 

MOV R2» RO 
ASH #-6, RO 
CALL ODCREG 
. TTYOUT #COMMA 
INC D. POOL 



; Get operand column number 
; Tab over to operand field 



j GeT instruc-cion word 

/Right justify register number 

^Display the register name 

> Print comma 

i Advance column number 



Display the destination address 



BIC 


#••^077, R2 


MOV 


R1,R0 


ASL 


R2 


SUB 


R2> RO 


CALL 


ODCADR 


Finished 




RETURN 





Mask out all but branch offset 
Get the current PC address 
Get 2* offset 
Get destination address 
Display the address 



TSDBUe 
ODC XXX 
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— Display instruction operands 



1 

*-» 

e: 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 n 

14 
15 
16 

rf ••rr 

J. / 
18 
19 
20 

21 
22 
23 
24 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



010504 



010504 012700 000010 
010510 004737 012064' 



010516 042700 
010522 004737 



010526 000207 



177400 
006030 



010530 



010530 012700 000010 
010534 004737 012064' 



010540 010200 

010542 004737 011672' 



010546 000207 



010550 



010550 012700 
010554 004737 



000010 
012064' 



010560 
010562 
010566 
010576 



010200 
004737 



011672' 



005237 OOOOOOG 



i TYPil — EMT and TRAP in&tructions 

ODCll: 

} Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 

Display the argument value 



MOV 


R2, RO 


BIC 


#•-^0377, RO 


CALL 


PRTOCT 


Finished 




RETURN 





i Get operand column number 
i Tab over to operand field 



jMask out all but operand value 
;Print octal value 



i TYP12 — Single floating-point operand 

i 

ODC 12: 

i Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 



> Get operand column number 
; Tab over to operand field 



Display the floating point operand 



MOV 


R2, RO 


CALL 


ODCFPU 


Finished 




RETURN 





; Get operand code 

j Display general FPU operand 



i TYP13 — Floating accumulator and floating source operand. 

0DC13: 

} Tab over to the operand field 



MOV #COLOPN. RO 

CALL ODCTAB 

Display the source operand 

MOV R2, RO 

^ Ai I r\r\r*rrrn i 

. TTYOUT #COMMA 

INC D. PCOL 



j Get operand column number 
j Tab over to operand field 



i Get instruction word 

; Display the source operand 

i Display comma 

i Advance column number 



Display the accumulator number 



I 
i 



i 
f 



TSDBUG 
ODC XXX 



— TSX-Plus debugging mo MACRO V05. 05 Wednesday 18-Jan-S9 15:24 Page 52-1 

— Display instruction operands 



f 
t 



> I 



58 



60 


010604 


072027 


177772 


61 


010610 


004737 


011620' 


62 








63 








64 








65 


010614 


000207 





MOv R2» RO 
ASH #-6, RO 
CALL ODCACC 



Finished 

RETURN 



iwex accumulator number 

i Right justify 

A Display the accumulator number 
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i 
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I 
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— Display instruction operands 



010616 



010616 012700 
010622 004737 



010626 010200 

010630 004737 
010634 

010644 005237 



010650 010200 
010652 072027 
010656 004737 



010662 000207 



000010 
012064 



011000' 
OOOOOOG 



177772 
011620' 



TYP14 — Floating accumulator and general source operand. 
0DC14: 

Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODC TAB 

Display the source operand 

CALL ODCGEN 
. TTYOUT #COMMA 
INC D. PCOL 



Get operand column number 
Tab over to operand field 



/Get I iist rut. t i nn word 

i Display the source operand 

i Disp lay comma 

j Advance column number 



Display the accumulator number 



MOV 


R2, RO 


ASH 


#-6. RO 


CALL 


ODCACC 


Finished 




RETURN 





> Get accumulator number 

i Right justify 

i Display the accumulator number 



I 
f 

f 

i 

I 

I 



TSDBUG 
ODC XXX 



TSX-Plus debugging mo MACRO V05. 05 Wednesday 18-Jan-S9 15:24 Page 54 
Display instruction operands 



i 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



010664 



010664 
010670 



010676 
010702 
010706 
010716 



010722 
010724 



012700 000010 
004737 012064' 



1 0200 

072027 177772 

004737 011620' 

005237 OOOOOOe 



010200 

004737 011672' 



010730 000207 



TYFi5 — Floating accumulator and floating destination operand. 
0DC15: 

Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 



j Get operand column number 
i Tab over to operand field 



Display the floating accumulator 



MOV Hei, RO 

ASH #-6, RO 

CALL ODCACC 

. TTYOUT #COMMA 

INC D. POOL 



> Qet the accumulator number 

j Right justi f y 

; Display the accumulator 

i Disp lay comma 

; Advance column number 



Display the floating destination 



MOV 


R2, RO 


CALL 


ODCFPU 


Finished 




RETURN 





;Get the destination operand code 
; Di splay it 



i 
f 

I 

I 



i 
f 
I 

I 
4 

I 
I 

I 



i 
i 
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3 
4 
5 
6 
7 
8 
9 
10 
11 



14 
15 
16 
i / 
IS 
19 
20 
21 
22 
23 
24 
25 
26 



01073J 



010732 012700 000010 
010736 004737 012064' 



\j j.\j * -re \j A. wcww^ 

010744 072027 177772 

1 0750 004737 Oil 620 ' 

010754 

010764 005237 OOOOOOG 



010770 010200 

010772 004737 011000' 



010776 000207 



■ III 



r J. Oca 1/ J, iiy 



Ally dl. 1. uinu J. d vu I aiiu ucriicri ci j. u i; a t/ a iia v a uii uuci aiiu. 



0DC16: 

Tab over to the operand field 



MOV #COLDPN, RO 
CALL ODCTAB 



i Get operand column number 
I Tab over to operand field 



Display the floating accumulator 



I lu V Rci» rs w 

ASH #-6, RO 
CALL ODCACC 
. TTYOUT #COMMA 
INC D. PCOL 

Display the destination 



MOV 


R2, RO 


CALL 


ODCGEN 


Finished 




RETURN 





i Right justify 

; Display the accumulator 

i Display comma 

; Advance column number 



Get the destination operand code 
Display it 
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SBTTL ODCGEN — Display general operand value 



011000 010246 
011002 010346 



011004 010002 

011006 072227 177776 

011012 042702 177761 



011016 010003 

011020 042703 177770 

011024 020327 000007 

011030 001003 



O 1 1 032 004772 1 1 452 ' 
011036 000402 



1 1 040 004772 1 1 432 ' 



011044 012603 
011046 012602 
011050 000207 



ODCGEN is called during instruction decoding to display a general 
operand of any mode. 

Inputs: 
RO = Operand value from instruction. 
Rl = Address of word following instruction. 

Outputs: 
Rl is incremented if the addressing mode uses a value in memory that 
folloujs the instruction. 



ODCGEN: MOV 
MOV 



R2, -<SP) 
R3, -(SP) 



Get the addressing mode 



MOV 


RO, R2 


ASH 


#-2i R2 


BIC 


#-^C16, R2 



iRight justify 2* mode 

; Mask out all but 2# mode 

Determine if the register is R7 or is in the range RO to R6. 

.: Get mode and register value 
jMasN out all but register number 
■ Is reg ister R7? 



Addressing mode is relative to R7. 

Call display routine based on the addressing mode. 
RO and R3 contain the mode and register number. 



MOV 


RO, R3 


BIC 


#•-^07, R3 


CMP 


R3, #7 


BNE 


1« 



CALL @AD7VEC<R2) 
BR 9* 



iCall the processing routine 



Jump to processing routine based on the mode 
1*: CALL @ADRVEC<R2) ; Jump to processing routine 

Finished 
9*: 



i 
i 
I 
( 
i 
i 
« 
I 
€ 
f 
f 

€ 
I 

< 
( 



MOV 

MOV 
RETURN 



(SP)+, R3 

(SP)+, R2 



I 

I 



t 
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lus debugging mo 
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1 
2 
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— Displ 


ay general opera 








4 








5 








6 


011052 


004737 


011472' 


7 


011056 


000207 




8 








9 








10 








11 


011060 


010046 




12 


011062 






13 


01 1072 


012600 




14 


011074 


004737 


011472' 


15 


011100 






16 


011110 


000207 




17 








IS 








19 








20 


011112 


004737 


011060' 


21 


011116 






22 


011126 


000207 




23 








24 








25 








26 


011130 


010046 




27 


011132 






2S 


011142 


012600 




29 


011144 


004737 


011112' 


30 


011150 


000207 




31 








32 








33 








34 


011152 


010046 




35 


011154 






36 


011164 


012600 




37 


011166 


004737 


011060' 


38 


011172 


000207 




39 








40 








41 








42 


011174 


010046 




43 


011176 






44 


011206 






45 


011216 


012600 




46 


011220 


004737 


011060' 


47 


011224 


000207 




48 








49 








50 








51 


011226 


010046 




52 


011230 


106521 




53 


011232 


062737 


000002 


54 


011240 


012600 




55 


011242 


004737 


011720' 


56 


011246 


012600 




57 


011250 


004737 


011060' 
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JL/ J. !3 p J. el y rouiines ror regisi-erB nv rniuwyri fmj 



Mode 



R 



ADRMDO: CALL ODCREG 
RETURN 

Mode 1 — (R) 

ADRMDl: MOV RO, -<SP> 
. TTYOUT #'< 
riuv \ or f f, nu 
CALL ODCREG 
. TTYOUT # ' ) 
RETURN 

Mode 2 — (R)+ 

ADRMD2: CALL ADRMDl 
. TTYOUT #'+ 

RETURN 

Mode 3 — e<R)+ 

ADRMD3: MOV RO, -(SP) 

. TTYOUT # '@ 

MOV (SP)+, RO 

CALL ADRMD2 
RETURN 



Mode 4 — 



(R) 



ADRMD4: MOV RO, -(SP) 

. TTYOUT #'- 

MOV <SP)+, RO 

CALL ADRMDl 
RETURN 



Mode 5 — e~(R) 

ADRMD5: MOV RO, -(SP) 

. TTYOUT #'@ 

. TTYOUT #'- 

MOV <SP)+, RO 

CALL ADRMDl 
RETURN 



Mode 6 



ADRMD6: MOV 
MFPD 
OOOOOOG ADD 

MOV 
CALL 
MOV 



X(R) 



RO, -(SP) 

<R1 ) + 

#2> D. ILEN 

<SP)+, RO 

ODCADR 

(SP>+, RO 

ADRMDl 



Display register 



/Save the register number 
i Open paren 

t f\QC\^^'vBT uiiS regi3k/er iiuniuer 
i Display the register number 
j Close paren 



;Print "(r)" 

; Put in trailing plus sign 



i Save the register number 
i Print "@" 

> Recover the register number 
iPrint •'<r) + " 



; Save the register number 
; Print "-" 

; Recover the register number 
iPrint "(r)" 



i Save the reqister number 
iPrint "©-" 

i Recover register number 
iPrint "(r)" 



j Save the register number 

i Get the vector base address 

i Say instruction uses 2 more bytes 

; Get value to RO 

i Display the address 

i Recover the register number 

iPrint "(r)" 
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f 
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I 
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58 011254 

59 

60 


000207 






RETURN 






} Mode 


7 — €X<R> 


61 










62 011256 


010046 




ADRMD7: 


MOV RO, -<SP) 


63 011260 








. TTYOUT #'@ 


64 011270 


012600 






MOV <SP)+, RO 


65 011272 


004737 


011226' 




CALL ADRMD6 


66 011276 


000207 






RETURN 



i Save register number 
; Print "S" 

j Recover register number 
iPrint "x(r)" 



f ( 



( 
I 
< 

( 
< 

i 

i 

t 
i 



t 
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1300 
1310 
1312 
1320 
1322 
1326 
1330 

4. %m*^J~r 



01 
01 

a 01 

9 01 

10 01 

11 01 

12 01 

ID rM 

14 
15 
16 

A / U4. 
18 01 

19 01 

20 01 

21 01 

22 01 

23 01 
24 
25 
26 

27 01 

28 01 

29 01 

30 01 

31 01 

32 01 
33 
34 

35 

36 011420 

37 011430 



1346 
1356 
1360 
1366 
1370 
1374 



1376 
1400 
1406 
1410 
1412 
1416 



106521 
062737 
012600 
004737 
103002 
004737 



106521 
062737 
012600 
004737 
000207 



106521 
062737 
012600 
060100 
004737 
000207 



00076J 



Display routines •for the various iTiodes ujith R7. 
Mode 2 — #n 



AD7MD2: . TTYOUT #'# 



000002 OOOOOOG 
012022' 
006030 ' 



MFPD 

ADD 

MOV 

CALL 

BCC 

CALL 



Mode 3 



<R1) + 

#2, D. ILEN 

(SP)+, RO 

ODCNEG 

9* 

PRTOCT 



@#address 



000002 
011720 



OOOOOOG 



AD7MD3: .TTYOUT #'§ 
. TTYOUT #'# 
MFPD (Rl)+ 
ADD #2, D. ILEN 
MOV ( SP ) +, RO 
CALL ODCADR 
RETURN 



Mode 6 



address 



OOOOOJ 



011720 



AD7MD6: MFPD 
OOOOOOG ADD 

MOV 
ADD 
CALL 
RETURN 



(Rl) + 

#2, D. ILEN 

(SP)+, RO 

R1,R0 

ODCADR 



Mode 7 



©address 



AD7MD7: .TTYOUT #'© 

BR AD7MD6 



i Print "#" 

i Get the value onto the stack 

> Say instruction uses 2 more bytes 

; Get the value 

J See if value should be printed as neg number 

» Br if it was a negative number 

/Print as an octal value 



i mm; 



"@#" 



i Get the address 

J Advance the instruction length 

i Get the address 

(Display the address 



■Get the address 

(Advance the instruction length 

; Get the address 

iRelocate the address 

/Display the address 



J Print "@" 

i Go display the address 
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3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



24 



01 
01 
01 
01 
01 
01 
01 
01 



1432 
1434 
1436 
1440 
1442 
1444 
1446 
1450 



01 
01 
01 
01 
01 
01 
01 
01 



1452 
1454 
1456 
1460 
1462 
1464 
1466 
1470 



011052' 
011060' 
011112' 
011130' 
011152' 
011174' 
011226' 
011256' 



01 1052 ■ 
011060' 
011300' 
011336' 
011152' 
011174' 
011376' 
011420' 



Jump table used to dispatch to the correct display routine for 
addressing modes using registers RO through R6. 



. WORD 


ADRMDO 


. WORD 


ADRMDl 


. WORD 


ADRMD2 


. WORD 


ADRMD3 


. WORD 


ADRMD4 


. WORD 


ADRMD5 


. WORD 


ADRMD6 


. WORD 


ADRMD7 



Mode 
Mode 
Mode 
Mode 
Mode 
Mode 
Mode 
Mode 




1 
2 
3 
4 
5 
6 
7 



Jump table used to dispatch to the correct display routine for 
addressing modes using register R7 <PC). 



AD7VE 


EC: . WORD 


ADRMDO 




. WORD 


ADRMDl 




. WORD 


AD7MD2 




. WORD 


AD7MD3 




. WORD 


ADRMD4 




. WORD 


ADRMD5 




. WORD 


AD7MD6 




. WORD 


AD7MD7 



Mode 
Mode 1 
Mode 
Mode 
Mode 
Mode 5 
Mode 6 
Mode 7 



2 
3 
4 



I 
f 

c 
i 

4 
4 
t 

\ 
I 
C 
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— Displ 
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1 

2 
3 










4 
5 
6 
7 










8 
9 


011472 


010046 






10 
11 










12 


011474 


042700 


177770 




13 










14 
15 










16 


011500 


020027 


000007 




17 
IS 
19 


011504 
011506 
011516 


001011 






20 
21 

22 


011526 


000427 






23 










24 


011530 


020027 


000006 




25 


011534 


OOlOli 






26 
27 


011536 
011546 








28 


011556 


000413 




29 










30 










31 










32 


011560 








33 


011570 


011600 






34 


011572 


042700 


177770 




35 
36 
37 


011576 
011602 


062700 


000060 




38 
39 










40 


011606 


062737 


000002 




41 


011614 


012600 






42 


011616 


000207 
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. SBTTL ODCREG — Display register name 

ODCREO is called to display the name of a register. 

Inputs: 
RO = Register number 

ODCREG: MOV RO, -(SP) 

Determine which register this is 



BIC #-^07, RO 

See if this is R7 (PC) 

CMP RO, #7 

BNE 1* 

. TTYOUT #'P 

. TTYOUT #'C 

BR 9* 

See if this is R6 (SP) 

1*: CMP RO, #6 

BNE 2« 

. TTYOUT #'S 

. TTYOUT #'P 

BR 9* 



i Clear all but the register number 

; Is register PC? 
j Display "PC" 



ils register SP7 
i Br if not 
; Print "SP" 



This is a register in the range RO to R5. 



2*: 



. TTYOUT #'R 
MOV (SP),RO 
BIC #-^C7, RO 
ADD #'0, RO 
. TTYOUT 



Finished 



OOOOOOG 9*: 



ADD #2, D. POOL 
MOV (SP)+, RO 
RETURN 



i Print "Rn" 

; Get register number 

j Convert to ascii digit 
; Print it 



; Advance print column counter 



I 
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— Print a floating point accumulator name 



. SETTL ODCACC — Print a floating point accumulator name 

Print the name of a floating point accumulator. 

Inputs; 
RO = Accumulator number 



011620 010046 



011622 

w A A owe;. 

011642 011600 

011644 042700 177774 

011650 062700 000060 
011654 



011660 062737 000003 OOOOOOG 
011666 012600 
011670 000207 



ODCACC: MOV 
Print ACn 



RO, -(SP) 



. TTYOUT #'A 
. TTYOuT # 'C 
MOV ( SP ) , RO 
BIC #-^C3>R0 
ADD #'0>R0 
. TTYOUT 



Fini shed 



ADD #3, D. PCOL 
MOV ( SP ) +, RO 
RETURN 



; Clear all but ACC # 
J Convert to ascii char 
i Print the # 



Advance print column number 



I 
( 

t 
t 

i 

I 

I 

I 
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i t 
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— Print general floating point operand 



i 

c: 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

J.v3 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



011672 010046 



011674 032700 000070 

011700 001003 

011702 004737 011620' 

011706 000402 



011710 004737 011000' 



011714 012600 
011716 000207 



. SBTTL ODCFPU — Print general floating point operand 

ODCFPU is called to display a general floating point operand. 

Inputs: 
RO = Floating point operand mode and register #. 

ODCFPU: MOV RO, -<SP) 

Determine if it is a floating point accumulator 

i Is mode = (accumulator)? 

; Br if not 

j Display an accumulator name 



BIT 


#70, RO 


BNE 


1* 


CALL 


ODCACC 


BR 


9* 



It is not an accumulator 

1*: CALL ODCGEN 

Finished 

9*: MOV (SP)+, RO 
RETURN 



Display general operand 



I 
I 
f 

€ 

I 
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Display decoded instruction address 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



. SBTTL ODCADR — Display decoded instruction address 

ODCADR is called to display an address value which is an instruction 
operand. If the address is relative to a relocation base> the 
address is displayed in the form "Cr, of f set3". 

If the address is not relative to a relocation base, it is displayed 
in the form "address". 

Inputs: 
RO = Address to be displayed. 



011720 010046 
011722 010346 



011724 004737 012022 
011730 103031 



011732 032737 OOOOOOG OOOOOOG 

011740 001023 

1 1 742 004737 0074 1 2 ' 

011746 103420 



ODCADR: MOV 
MOV 



R0> -<SP) 
R3» -<SF ) 



Determine if address should be shown as a negative number 



CALL 
BCC 



ODCNEG 
9* 



jt>hould this be shouin as a negative number? 
J Br if yes 



Determine if address is relative to a relocation base 



BIT 


#DP*DAA. D, PFMT 


BNE 


1* 


CALL 


RELADR 


BCS 


1* 



j Should address be absolute? 

; Br if yes 

i See if address is within relocation region 

J Br if address is not within relocation region 



Address is within a relocation region. 
Display in the form " Cr. address3 ". 



011750 
011752 
011762 
011764 
011770 
012000 
012006 



010003 

010300 
004737 

062737 
000402 



MOV 



RO, R3 



TTYOUT #'C 



007322 ' 



000002 OOOOOOG 



012010 004737 006030' 



012014 012603 
012016 012600 
012020 000207 



i Save the address 

; Print " Cr, address3" 

; Get back address 

^Display the address 

i Put in closing bracket 

i Advance print column counter 



Address is not relative to a relocation base 
1*: CALL PRTOCT ; Display the address 

Finished 



MOV 


R3, RO 


CALL 


SHOADR 


. TTYOUT 


#'] 


ADD 


#2, D. PCOL 


BR 


9* 



9*: 



MOV 
MOV 
RETURN 



(SP)+, R3 
(SP)+, RO 
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— Determine if values should be shoujn as negative 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



012022 



012022 020027 177776 
012026 103414 



012030 010046 

012032 

012042 011600 

012044 005400 

012046 004737 006030 

012052 012600 

012054 000241 

012056 000401 



012060 000261 
012062 000207 



. SBTTL ODCNEG — Determine if values should be shown as negative 

ODCNEO is called to determine if an address or value should be displayed 

as a negative number. 

Currently, the only values that are shown as negative numbers 

are -1 and -2. 

Inputs: 
RO = Value to be tested. 

Outputs: 
C-flag cleared ==> Value was displayed as a negative number. 
C~flag set ==]|> valuta iB not displayed as a negative number. 

ODCNEG: 

See if this is a value to be displayed as a negative number 



CMP RO, #177776 
BLO 9* 

Phis is a negative value 

MOV RO, -(SP) 

. TTYOUT #'- 

MOV ( SP ) , RO 

NEG 

CALL 

MOV 

CLC 

BR 

Finished 



i Is this a negative value? 
j Br if not 



RO 

PRTOCT 
<SP)+, RO 

10* 



9*: 
10*: 



RETURN 



; Print minus sign 

; Get the value 

• Negate i t 

jPrint it 

J Recover original value 

J This is a negative number 



iThis is not a negative value 



c 

f 

I 
I 

I 



I 
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c 
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. SBTTL ODCTAB — Tab to a specified column 

ODCTAB is called to tab over to a specified print column. 

Inputs: 
D. POOL = Current print column number. 
RO = Desired print column. 

Outputs: 
D. POOL = New print column after tabbing. 

ODCTAB: MOV RO, -<SP) 

Print spaces until we reach the desired column 

1*: . TTYOUT #SPACE ; Print a space 

; Advance column number 
i Reached desired column? 
; Loop if not 



012064 010046 



012066 

012076 005237 OOOOOOG 

012102 023716 0000000 

012106 103767 



012110 012600 
012112 000207 



. TTYOUT 


#SPACE 


INC 


D. PCOL 


CMP 


D. PCOL, (SP) 


BLD 


1$ 


Finished 




MOV 


<SP)+, RO 


RETURN 
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i 
f 
i 
f 
C 
t 

I* 

I 
i 

I' 

i 

i < 
( 
( 
( 



I 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
1? 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000000 
000002 
000004 
000005 
000006 



012114 



012114 
012126 
012140 
012152 
012164 
012176 
012212 



SBTTL INSBAS 



Instruction decoding tables 



Table used for decoding a PDP-11 instruction into symbolic form. 
Each instruction is defined by an invocation of the INSTR macro 
which takes 4 arguments. The four arguments are: 

= 16 bit mask used to mask out the operand portions 
of the instruction uord. 

= Value of instruction after mask <arg 1) has been applied. 

= Operand type code for the instruction. 

= Symbolic name for the instruction. 



Argument 1 



Argument 
Argument 
Argument 



2 
3 
4 



Define symbolic names for offsets into an instruction description block: 



IB*MSK 
IB*VAL 
IB*TYP 
IB*LEN 
IB*NAM 





2 
4 
5 
6 

MACRO INSTR 
WORD MASK 



iMask value 

j Instruction value 

; Operand type 

> Length of instruction mnemonic text string 

; Start of instruction mnemonic text string 



MASK, VALUE, TYPE, NAME 



. WORD 
. BYTE 
. NCHR 
13YTE 
. ASCII 
. EVEN 
. ENDM 

Type codes 
TYPl = 
TYP2 
TYP4 
TYP5 
TYP6 
TYP7 
TYP9 
TYPIO = 
TYP 1 1 = 
TYP12 = 
TYP13 = 
TYP 14 = 
TYP 15 = 
TYP 16 = 



VALUE 
TYPE 

NAMLEN, NAME 
NAMLEN 
/ 'NAME/ 

INSTR 



for the instruction operand types: 

No operand. 

Single general operand. 

4-bit absolute numeric operand. 

Condition code modification instruction. 

Branch offset operand. 

Register source, general operand destination. 

General source and destination operands. 

Register and loop offset (SOB). 

EMT and TRAP instructions. 

Single floating point general operand 

Floating point accumulator and floating source operand 

Floating point accumulator and general source operand 

Floating point accumulator and floating destination operand 

Floating point accumulator and general destination operand 



Define the instructions 



INSBAS: 










i 


Mask 


Code 


Type 


Name 


> 

INSTR 


000000, 


000000, 


TYPl, 


HALT 


INSTR 


000000, 


000001, 


TYPl, 


WAIT 


INSTR 


000000; 


000002, 


TYPl, 


RTI 


INSTR 


000000, 


000003, 


TYPl, 


BPT 


INSTR 


000000, 


000004, 


TYPl, 


lOT 


INSTR 


000000, 


000005, 


TYPl, 


RESET 


INSTR 


000000, 


000006, 


TYPl, 


RTT 






I 
I 

f 

i 
C 

4 
I 
t 

I 



I 
f 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 



012224 
012236 
012252 
012264 
012276 
012310 
012320 
012330 
012342 
012352 
012364 
012376 



71 012422 

72 012434 

73 012446 

74 012460 

75 012472 

76 012504 

77 012516 

78 012530 

79 012542 
SO 012554 

81 012566 

82 012600 
S3 012612 

84 012624 

85 012636 

86 012650 

87 012662 

88 012674 

89 012706 

90 012720 

91 012732 

92 012744 

93 012756 

94 012770 

95 013002 

96 013014 

97 013026 

98 013040 

99 013052 

100 013064 

101 013076 

102 013110 

103 013122 

104 013134 

105 013146 

106 013160 

107 013172 

108 013204 

109 013216 

110 01 3230 

111 013242 

112 013254 

113 013266 

114 013300 



>5. 05 


Wednesday 


18-Jan- 


89 15:24 


Page 


INSTR 


000077, 


000100, 


TYP2, 


JMP 


INSTR 


000000, 


000207, 


TYPl, 


RETURN 


INSTR 


000007, 


000200, 


TYP3, 


RTS 


INSTR 


000007, 


000230, 


TYP4, 


SPL 


INSTR 


000000, 


000240, 


TYPl, 


NOP 


INSTR 


000017, 


000240, 


TYP5, 


CL 


INSTR 


000017, 


000260, 


TYP5, 


SE 


INSTR 


000077, 


000300, 


TYP2, 


SWAB 


INSTR 


000377, 


000400, 


TYP6, 


BR 


INSTR 


000377, 


001000, 


TYP6, 


BNE 


INSTR 


000377, 


001400, 


TYP6, 


BEQ 


INSTR 


000377, 


002000, 


TYP6, 


BGE 


INSTR 


000377, 


002400, 


TYP6, 


BLT 


INSTR 


000377, 


003000, 


TYP6, 


BGT 


INSTR 


000377, 


003400, 


TYP6, 


BLE 


INSTR 


000077, 


004700, 


TYP2, 


CALL 


INSTR 


000777, 


004000, 


TYP7, 


JSR 


INSTR 


000077, 


005000, 


TYP2, 


CLR 


INSTR 


000077, 


005100, 


TYP2, 


COM 


INSTR 


000077, 


005200, 


TYP2, 


INC 


INSTR 


000077, 


005300, 


TYP2, 


DEC 


INSTR 


000077, 


005400, 


TYP2, 


NEG 


INSTR 


000077, 


005500, 


TYP2, 


ADC 


INSTR 


000077, 


005600, 


TYP2, 


SBC 


INSTR 


000077, 


005700, 


TYP2, 


TST 


INSTR 


000077, 


006000, 


TYP2, 


ROR 


INSTR 


000077, 


006100, 


TYP2, 


ROL 


INSTR 


000077, 


006200, 


TYP2, 


ASR 


INSTR 


000077, 


006300, 


TYP2, 


ASL 


INSTR 


000077, 


006400, 


TYPS, 


MARK 


INSTR 


000077, 


006500, 


TYP2, 


MFPI 


INSTR 


000077, 


006600, 


TYP2, 


MTPI 


INSTR 


000077, 


006700, 


TYP2, 


SXT 


INSTR 


007777, 


010000, 


TYP9, 


MOV 


INSTR 


007777, 


020000, 


TYP9, 


CMP 


INSTR 


007777, 


030000, 


TYP9, 


BIT 


INSTR 


007777, 


040000, 


TYP9, 


BIC 


INSTR 


007777, 


050000, 


TYP9, 


BIS 


INSTR 


007777, 


060000, 


TYP9, 


ADD 


INSTR 


000777, 


070000, 


TYP8, 


MUL 


INSTR 


000777, 


071000, 


TYPS, 


DIV 


INSTR 


000777, 


072000, 


TYPO, 


ASH 


INSTR 


000777, 


073000, 


TYP8, 


ASHC 


INSTR 


000777, 


074000, 


TYP7, 


XOR 


INSTR 


000007, 


075000, 


TYPl, 


FADD 


INSTR 


000007, 


075010, 


TYPl, 


FSUB 


INSTR 


000007, 


075020, 


TYPl, 


FMUL 


INSTR 


000007, 


075030, 


TYPl, 


FDIV 


INSTR 


000777, 


077000, 


TYPIO, 


SOB 


INSTR 


000377, 


100000, 


TYP6, 


BPL 


INSTR 


000377, 


100400, 


TYP6, 


BMI 


INSTR 


000377, 


101000, 


TYP6, 


BHI 


INSTR 


000377, 


101400, 


TYP6, 


BLOS 


INSTR 


000377, 


102000, 


TYP6, 


BVC 


INSTR 


000377, 


102400, 


TYP6, 


BVS 


INSTR 


000377, 


103000, 


TYP6, 


BCC 


INSTR 


000377, 


103400, 


TYP6, 


BCS 



66-1 
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120 
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125 
126 

1 £:.D 

129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
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013312 
013324 
013336 
013350 
013362 
013374 
013406 
013420 
013432 
013444 
013456 
013470 
013502 
013514 
013526 
013540 
013552 
013564 
013576 
013610 
013622 
013634 
013646 
013660 
013672 
013704 
013716 
013730 
013744 
013760 
013772 
014004 
014016 
014030 
014042 
014054 
014066 
014100 
014112 
014124 
014136 
014150 
014162 
014176 
014212 
014226 
014242 
014256 
014272 
014304 
014316 
014330 
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Page 


66-2 


INSTR 


000377, 


104000, 


TYPli, 


EMT 




INSTR 


000377, 


104400, 


TYPil, 


TRAP 




INSTR 


000077, 


105000, 


TYP2, 


CLRB 




INSTR 


000077, 


105100, 


TYP2, 


COMB 




INSTR 


000077, 


105200, 


TYP2, 


INCB 




INSTR 


000077, 


105300, 


TYP2, 


DECB 




INSTR 


000077, 


105400, 


TYP2, 


NEGB 




INSTR 


000077, 


105500, 


TYP2, 


ADCB 




INSTR 


000077, 


105600, 


TYP2, 


SBCB 




INSTR 


000077, 


105700, 


TYP2, 


TSTB 




INSTR 


000077, 


106000, 


TYP2, 


RORB 




INSTR 


000077, 


106100, 


TYP2, 


ROLB 




INSTR 


000077, 


106200, 


TYP2. 


ASRB 




INSTR 


000077, 


106300, 


TYP2, 


ASLB 




INSTR 


000077, 


106500, 


TYP2, 


MFPD 




INSTR 


000077, 


106600, 


TYP2, 


MTPD 




INSTR 


007777, 


110000, 


TYP9, 


MOVE 




INSTR 


007777, 


120000, 


TYP9, 


CMPB 




INSTR 


007777, 


130000, 


TYP9, 


BITS 




INSTR 


007777, 


140000, 


TYP9, 


BICB 




INSTR 


007777, 


150000, 


TYP9, 


BISB 




INSTR 


007777, 


160000, 


TYP9, 


SUB 




INSTR 


000000, 


170000, 


TYPl, 


CFCC 




INSTR 


000000, 


170001, 


TYPl, 


SETF 




INSTR 


000000, 


170002, 


TYPl, 


SET I 




INSTR 


000000, 


170011, 


TYPl, 


SETD 




INSTR 


000000, 


170012, 


TYPl, 


SETL 




INSTR 


000077, 


170100, 


TYP2, 


LDFPS 




INSTR 


000077, 


170200, 


TYP2, 


STEPS 




INSTR 


000077, 


170300, 


TYP2, 


STST 




INSTR 


000077, 


170400, 


TYPl 2, 


CLRF 




INSTR 


000077, 


170500, 


TYP12, 


TSTF 




INSTR 


000077, 


170600, 


TYP12, 


ABSF 




INSTR 


000077, 


170700, 


TYPl 2, 


NEGF 




INSTR 


000377, 


171000, 


TYPl 3, 


MULF 




INSTR 


000377, 


171400, 


TYPl 3, 


MODF 




INSTR 


000377, 


172000, 


TYPl 3, 


ADDF 




INSTR 


000377, 


172400, 


TYPl 3, 


LDF 




INSTR 


000377, 


173000, 


TYPl 3, 


SUBF 




INSTR 


000377, 


173400, 


TYPl 3, 


CMPF 




INSTR 


000377, 


174000, 


TYPl 5, 


STF 




INSTR 


000377, 


174400, 


TYPl 3, 


DIVF 




INSTR 


000377, 


175000, 


TYPl 6, 


STEXP 




INSTR 


000377, 


175400, 


TYP16, 


STCFI 




INSTR 


000377, 


176000, 


TYPl 6, 


STCFD 




INSTR 


000377, 


176400, 


TYPl 4, 


LDEXP 




INSTR 


000377, 


177000, 


TYP14, 


LDCIF 




INSTR 


000377, 


177400, 


TYP13, 


LDCDF 




INSTR 


000077, 


106400, 


TYP2, 


MTPS 




INSTR 


000077, 


106700, 


TYP2, 


MFPS 




INSTR 


177777, 


000000, 


TYPl, 


???? 




INSEND 













Address vector used to jump to correct routine to decode and display 
the operands associated with an instruction. 

. MACRO TYPDEF TYPNAM, RTN 
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173 
174 
175 
176 
177 
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177 
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187 
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190 
191 
192 
193 
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TYPNAM = 



WORD 
ENDM 



. -TYPVEC 

RTN 

TYPDEF 



Define the types 



014330 
014330 
014332 
014334 
014336 
014340 
014342 
014344 
014346 
014350 
014352 
014354 
014356 
014360 
014362 
014364 
014366 

000001 
etected: 



TYPVEC: 



TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 
TYPDEF 

. END 



*** Assembler statistics 



Work file reads: 
Work file writes: 
Size of u»ork file: 
Size of core pool: 
Operating system: 







9608 Words 

18176 Words 

RT-11 



( 38 Pages) 
( 71 Pages) 



TYP1,0DC1 
TYP2, 0DC2 
TYP3, 0DC3 
TYP4, 0DC4 
TYP5- 0DC5 
TYP6. 0DC6 
TYP7. 0DC7 
TYP8, 0DC8 
TYP9, 0DC9 
TYPIO, ODCIO 
TYP 1 1 , ODC 1 1 
TYP12, ODC 12 
TYP 13, ODC 13 
TYP 14, ODC 14 
TYP 15, ODC 15 
TYP 16, ODC 16 



No op 
Singl 
Singl 
4-bit 
Condi 
Branc 
Regis 
Regis 
Gener 
Regis 
EMT a 
One f 
Float 
Float 
Float 
Fl oat 



Brand 
e gener 
e regis 
absolu 
tion CO 
h offse 
ter sou 
ter des 
al sour 
ter and 
nd TRAP 
loating 
ing acc 
ing acc 
ing acc 
ing acc 



al operand. 

ter operand (RTS) 

te numeric operand. 

de modification instruction. 

t operand. 

rce, general operand destination. 

tination, general source operand 

ce and destination operands. 

loop offset (SOB). 

instructions. 

point operand, 
urn and floating source operand, 
um and general source operand, 
umulator and floating destination 
umulator and general destination. 



4 
t 
I 



I 

f 

< 
4 



Elapsed time: 00:01:40.43 

, LP: TSDBUG=DK: TSDBUG/C/N: SYM 



I 



t 
t 
I 
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*DBGBK 


1-33 


6-16 








*DEBUG 


1-34 


6-17 








. . . VI 


10-32 


20-27 


22-5 


32- 


-22 




41-27 


45-55 


47-29 


47- 


-32 




54-16 


55-16 


57-12 


57- 


-15 




58-18 


58-36 


60-18 


60- 


-19 




63-34 


64-25 


65-16 






ACRNUM 


29-42 


29-54 


30-10# 






ACRVAL 


9-20 


9-31 


29-15# 






AD7MD2 


58-6# 


59-19 








AD7MD3 


58-17# 


59-20 








AD7MD6 


5S-27# 


58-37 


59-23 






AD7MD7 


58-36# 


59-24 








AD7VEC 


56-34 


59-17# 








ADRMDO 


57-6# 


59-5 


59-17 






ADRMDl 


57-1 1# 


57-20 


57-37 


57- 


-46 


ADRMD2 


57-20# 


57-29 


59-7 






ADRMD3 


57-26# 


59-8 








ADRMD4 


57-34# 


59-9 


59-21 






ADRMD5 


57-42# 


59-10 


59-22 






ADRMD6 


57-51# 


57-65 


59-11 






ADRMD7 


57-62# 


59-12 








ADRVEC 


56-39 


59-5# 








BELL 


l-72# 










BKSPAC 


l-73# 


2-22 








BRKCHK 


7-13 


26-22# 








BRKENT 


1-21 


6-29 


7-8# 






BRKRST 


7-67 


24-7# 








BRKSET 


7-24 


8-14 


25-6# 






CHKADR 


15-20 


44-29# 








CMDAT 


2-31 


12-6# 








CMDATl 


12-7# 


12-35 








CMDB 


2-36 


15-5# 








CMDBKl 


10-22# 


12-26 


20-35 


22- 


-30 


CMDBKS 


2-30 


10-8 


10-21# 


11- 


-17 


CMDBSP 


2-47 


22-5# 








CMDCR 


2-44 


20- 5# 








CMDDCD 


2-34 


11 -5# 


21-8 


21- 


-17 


CMDEXP 


2-33 


13-5# 








CMDG 


2-37 


16-5# 








CMDI 


2-38 


16-39# 








CMDLF 


2-45 


18-58 


20~17# 






CMDM 


2-39 


19-5# 








CMDP 


2-40 


16-16# 


17-31 






CMDR 


2-41 


14-5# 








CMDRSB 


2-35 


21-5# 








CMDS 


2-42 


16-26# 








CMDSLl 


10-7# 


11-20 


12-20 


20- 


-30 


CMDSLH 


2-29 


10-6# 








CMDTAB 


2-48 


17-9# 








CMDTBL 


2-4# 


2-24 


9-39 






CMDUP 


2-46 


22-6 


22-ll# 






CMDUS 


2-32 


12-32# 








CMDVEC 


2-29# 


9-49 








CMDX 


2-43 


18-5# 








COLOPN 


1-81# 


46-14 


46-33 


47- 


-8 



I 

I 






32-27 33-17 33-42 34-26 35-22 39-49 39-52 39-59 

47-35 47-38 48-41 49-15 50-16 51-16 52-54 53-15 • 

57-21 57-27 57-35 57-43 57-44 57-63 58-6 58-17 

60-26 60-27 60-32 60-36 61-12 61-13 61-17 63-31 

I 

57-57 59-6 59-18 t 

€ 

I 



21-22 



22-25 



f 
I 
I 
I 

48-8 48-33 49-8 50-8 51-8 52-8 52-28 52-47 

I 
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53-S 


54-0 


55-8 
























COMMA 


l-76# 


48-41 


49-15 


50-16 


51-16 


52-54 


53-15 


54-16 


55-16 












CORUSR 


1-32 


6-15 


43-15 
























CR 


l-70# 


1-92 


1-94 


2-19 


18-15 


18-25 


18-40 


20-27 


43-29 












CRCHAR 


l-94# 


20-32 


21-19 
























CRLF 


l-93# 
27-28 


5-31 
27-41 


5-39 
27-56 


9-5 
27-68 


12-9 
35-6 


16-8 


16-19 


17-65 


21-14 


22-22 


22- 


-27 


27- 


-7 


D*BKST 


1-30 


24-8 


24-26 


25-21 






















D*CKBK 


1-33 


17-60 


24-10 


25-7 


26-53 


28-19 


28-24 
















D*DBRK 


1-28 


5-43 


7-14 


26-26 


26-49 


27-11 


















D$DMON 


1-29 


7-22 


7-65 


8-6 


8-12 


8-28 


8-54 


19-5 


19-8 


26-30 










D»DvAL 


1-30 


19-5 


19-17 


26-37 






















D$FBRK 


1-31 


6-28 


7-14 


7-77 


8-5 


27-54 


















Df IBRK 


1-28 


5-43 


7-14 


7-68 


26-26 


26-85 


27-39 
















D*INIT 


1-34 


6-22 


23-16 
























D*IPND 


1-30 


7-21 


7-64 


7-71 


S-S 


8-12 


3-54 


26-59 














D*ISPC 


1-36 


16-39 


16-44 


37-33 


37-45 


37-58 


38-28 


38-40 














D*RUN 


1-33 


7-39 


S-10 
























D*SBRK 


1-28 


5-43 


7-14 


26-26 


26-66 


27-32 


















D*SSTP 


1-28 


7-22 


7-65 


8-6 


8-12 


8-54 


16-26 


16-31 


17-64 


26-53 


26- 


-64 






D*TSTP 


1-34 


7-22 


7-65 


7-84 


8-6 


8-12 


B-54 


17-30 


26-53 


26-64 










D. BKAD 


1-25 


3-33 


15-13 


15-21* 


24-16 


25-13 


26-75 


28-12 














D. BKNM 


1-28 


26-67* 


26-84* 


27-42 


27-47 




















D. BKSV 


1-29 


24-21 


25-16* 
























D. BYTM 


1-25 


10-9* 


10-22* 


20-24 


21-11 


22-19 


37-26 


37-67 


38-22 


38-54 










D. CBRK 


1-35 


17-59* 


27-44* 
























D. DADR 


1-29 


8-30 


19-10* 


26-32 


27-17 


27-20 


















D. DOLD 


1-29 


8-35* 


26-40 


27-23* 


27-27* 




















D. DTRG 


1-29 


19-18* 


26-44 
























D. END 


1-31 


23-13 


























D. FLAG 


1-28 


5-43* 


6-22 


6-28* 


7-14 


7-21* 


7-22 


7-39* 


7-64* 


7-65 


7- 


-68 


7- 


-71* 




7-77 


7-84* 


8-5* 


8-6 


8-8* 


8-10* 


8-12 


8-28 


8-54 


16-26* 


16- 


-31* 


16- 


-39* 




16-44» 


17-30* 


17-60* 


17-64* 


19-5* 


19-8* 


19-17* 


23-16* 


24-8 


24-10 


24- 


-26* 


25- 


-7 




25-21* 


26-26* 


26-30 


26-37 


26-49* 


26-53 


26-59 


26-64 


26-66* 


26-85* 


27- 


-11 


27- 


-32 




27-39 


27-54 


28-19* 


28-24* 


37-33 


37-45 


37-58 


38-28 


38-40 












D. ILEN 


1-34 


10-10* 


10-23* 


18-9* 


21-13 


45-20* 


57-53* 


58-8* 


58-20* 


58-28* 










D. LOC 


1-25 


5-54* 


8-9* 


10-7 


11-12 


12-7* 


12-33 


13-22 


13-29 


20-10* 


20- 


-18 


20- 


-26* 




20-31* 


21-9 


21-13* 


21-18* 


22-12 


22-21* 


22-26* 


36-16* 


37-32 


37-43 


37- 


-50 


37- 


-72* 




37-78 


37-80 


38-27 


38-38 


38-46 


38-59 


38-64 


38-67 


39-23 


39-29 










D. LOCM 


1-26 


11-18 


12-8* 


36-15* 


37-16 


37-21 


38-17 


39-18 














D. LVAL 


1-33 


10-12* 


10-25* 


12-6 


12-32 


14-36 


14-51 


18-6 














D. MASK 


1-33 


3-31 


8-32 


23-15* 


26-34 


27-25 


















D. NMBE 


1-31 


30-38 


























D. NMBF 


1-25 


30-28 


30-54 
























D. PCNT 


1-32 


7-75 


7-79* 


16-9* 


16-18* 




















D. PCOL 


1-34 


10-33* 


11-28 


18-53* 


20-5* 


20-17* 


21-5* 


22-11* 


31-19* 


32-23* 


32- 


-28* 


33- 


-18* 




33-43* 


34-27* 


35-8* 


35-23* 


39-50* 


39-53* 


39-60* 


41-28* 


43-24* 


43-33* 


45- 


-25* 


45- 


-51* 




47-42* 


48-42* 


49-16* 


51-17* 


52-55* 


53-16* 


54-17* 


55-17* 


60-40* 


61-21* 


63- 


-35* 


65- 


-17* 




65-18 




























D. PFMT 


1-35 


3-32 


40-16 


63-22 






















D. PS 


1-30 


3-30 


4-17* 


5-26* 


7-35* 


8-53* 


8-56* 


8-57* 


8-61 












D. RO 


1-27 


3-22 


5-27* 


7-9* 


7-28 


8-49 


















D. Rl 


1-27 


3-23 


7-40* 


8-45 






















D. R2 


1-27 


3-24 


7-41* 


8-44 






















D. R3 


1-27 


3-25 


7-42* 


8-43 






















D. R4 


1-27 


3-26 


5-24* 


5-44 


7-43* 


8-42 



















i 

i 
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I 
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I 
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D. R5 
D. R6 


1-27 
1-27 


3-27 
3-28 


5-23* 
7-46* 


5-45 
8-39 


7-44* 


8-41 
















D. R7 


1-27 


3-29 


4-16* 


5-25* 


5-37 


7-8* 


7-34* 


7-70* 


8-62 


16-7* 


17-26* 








26-73 


27-14 


27-61 


27-66 


29-62 


















D. RLBS 


1-25 


3-34 


13-23 


14-23* 


14-37 


29-55 


41-23 


42-23 


42-25 


42-28 








D. SPSV 


1-31 


5-52 


7-51* 


35-9 




















D. STAR 
D. SVCH 


1-31 
1-25 


23-11 
31-12 


31-31* 


31-41* 
















\ 




D. VIFL 


1-26 


9-13* 


9-22* 


11-9 


13-11 


14-29 


16-5 


16-16 


17-13 


17-15* 


18-57* 








20-20 


21-6 


22-15 


36-13 
















1 




D. V2FL 


1-26 


9-15* 


9-33* 


14-13 


15-5 


16-27 


16-40 


19-15 










D. VALl 


1-26 


9-14* 


9-21* 


13-10 


14-23 


14-31 


15-19 




16-lS 


17-21 


19-6 








20-e 


20-22 


22-17 


36-16 




















D. VAL2 


1-26 


9-16* 


9-32* 


14-18 


15-7 


16-29 


16-42 


19-18 








' 




DB6BRK 


1-21 


6-10# 
























DBGENT 
DBGINI 
DBGOFF 


1-21 
4-12 
8-11 


4-3# 

6-24 

44-13# 


23-7# 


















1 




DBGON 

DBGRUN 

DBGTRP 


7-88 
4-21 

1-21 


44-5# 
5-46 
5-13# 


7-39# 


















1 




DECODE 


11-24 


27-67 


45-1 2# 


















1 




DOPRT 


5-31 


5-39 


9-5 


12-9 


16-8 


16-19 


17-65 


20-32 


21-14 


21-19 


22-22 








23-25 


27-7 


27-28 


27-41 


27-56 


27-68 


35-6 


35-7 


43-9# 






1 




DP*DAA 
DP*LAA 


1-35 
1-35 


63-22 
40-16 




















t 




EM$IIV 
EM*IRB 
EM*IRC 
EM*IVC 


l-89# 
l-90# 
l-86# 
1-S7# 


29-74 

29-51 

18-34 

9-43 
























EM*IVL 


1-8S# 


14-21 


14-34 


15-11 


















EM*NTL 


1-91# 


30-80 
























ERRPRT 


9-43 


14-21 


14-34 


15-11 


18-34 


29-51 


29-74 


30-80 


35-6# 






1 




EXITl 


7-80 


8-5# 


16-10 


16-20 


17-66 














\ 




EXIT2 
FLGBRK 


S-49# 
15-25 


2S-7# 
























GETCHR 


9-26 
31-8# 


9-37 


18-13 


18-24 


18-39 


18-54 


29-19 


29-53 


29-68 


30-17 


30-30 






GETCMD 


9-13# 


10-15 


10-35 


11-35 


13-35 


14-57 
















GETVAL 
IB*LEN 
IB*MSK 
IB*NAM 
IB*TYP 
IB*VAL 
INSBAS 
INSEND 
INSLEN 
I NT ADR 
INTCHR 
INTEND 


10-11 

45-39 

45-36 

45-42 

45-70 

45-37 

45-34 

66-166# 

17-57 
3-22# 
3-4# 
3-35# 


10-24 

45-50 

45-61 

45-53 

66-16# 

66-1 5# 

66-4S# 

17-70# 
29-76 
3-17 
39-42 


38-13# 
66-17# 
66-14# 
66-18# 

39-30 
29-70 


39-47 
39-51 




















LF 


1-71# 


1-92 


2-20 


18-17 


18-27 


18-42 


18-55 


43-31 












LSTADR 


5-38 


27-15 


27-18 


27-62 


39-24 


40-12# 
















LSTTXT 


5-34 


5-36 


9-9 


10-14 


10-28 


10-34 


12-19 


12-25 


13-17 


13-20 


13-31 






14-42 


14-45 


14-53 


18-5 


IS-S 


20-29 


20-34 


21-16 


21-21 


22-24 


22-29 








27-16 


27-19 


27-34 


27-46 


27-49 


27-57 


35-20# 


35-24 


45-24 







17-37 



20-6 



19-9 



-27 



30-71 



14-28 
27-13 



f 
f 

t 
I 

I 
I 

I 








TSDBUG 


— TSX-Pl 


us debuggin 


g mo MACRO 


V05. 05 


Wednesday 
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Cross reference 


table (CREF 
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LSW9 


1-33 


6-16* 


6-17* 




























NAMLEN 


66-51 


66-51# 


66-52 


66-52# 


66-53 


66-53# 


66-54 


66- 


-54# 


66- 


-55 


66-55# 


66-56 


66- 


-56# 






66-57 


66-57# 


66-58 


66-58# 


66-59 


66-59# 


66-60 


66- 


-60# 


66- 


-61 


66-6 1# 


66-62 


66- 


-62# 




66-63 


66-63# 


66-64 


66-64# 


66-65 


66-65# 


66-66 


66- 


-66# 


66- 


-67 


66-67# 


66-68 


66- 


-68# 






66-69 


66-69# 


66-70 


66-70# 


66-71 


66-71# 


66-72 


66- 


-72# 


66- 


-73 


66-73# 


66-74 


66- 


-74# 






66-75 


66-75# 


66-76 


66-76# 


66-77 


66-77# 


66-78 


66- 


-78# 


66- 


-79 


66-79# 


66-80 


66- 


-S0# 




66-81 


66-8 1# 


66-82 


66-82# 


66-83 


66-83# 


66-84 


66- 


-S4# 


66- 


-85 


66-85# 


66-86 


66- 


-S6# 






66-87 


66-a7# 


66-88 


66~88# 


66-89 


66-89# 


66-90 


66- 


-90# 


66- 


-91 


66-9 1# 


66-92 


66- 


-92# 






66-93 


66-93# 


66-94 


66-94# 


66-95 


66-95# 


66-96 


66- 


-96# 


66- 


-97 


66-97# 


66-98 


66- 


-98# 




66-99 


66-99# 


66-100 


66-100# 


66-101 


66-101# 


66-102 


66- 


-102# 


66- 


-103 


66-103# 


66-104 


66- 


-104# 






66-105 


66-105# 


66-106 


66-106# 


66-107 


66-107# 


66-108 


66- 


-10S# 


66- 


-109 


66-109# 


66-110 


66- 


-110# 






66-111 


66-1 11# 


66-112 


66-1 12# 


66-113 


66-il3# 


66-114 


oo- 


-ii4# 


66- 


-115 


66-1 i5# 


66-116 


66- 


-116# 






66-117 
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